home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / bin / automake-1.5 < prev    next >
Text File  |  2005-10-16  |  216KB  |  8,019 lines
  1. #!/usr/bin/perl -w
  2. # -*- perl -*-
  3. # Generated automatically from automake.in by configure.
  4.  
  5. eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
  6.     if 0;
  7.  
  8. # automake - create Makefile.in from Makefile.am
  9. # Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
  10. # Free Software Foundation, Inc.
  11.  
  12. # This program is free software; you can redistribute it and/or modify
  13. # it under the terms of the GNU General Public License as published by
  14. # the Free Software Foundation; either version 2, or (at your option)
  15. # any later version.
  16.  
  17. # This program is distributed in the hope that it will be useful,
  18. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  19. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20. # GNU General Public License for more details.
  21.  
  22. # You should have received a copy of the GNU General Public License
  23. # along with this program; if not, write to the Free Software
  24. # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  25. # 02111-1307, USA.
  26.  
  27. # Originally written by David Mackenzie <djm@gnu.ai.mit.edu>.
  28. # Perl reimplementation by Tom Tromey <tromey@cygnus.com>.
  29.  
  30. package Language;
  31.  
  32. BEGIN
  33. {
  34.   my $prefix = "/usr";
  35.   my $perllibdir = $ENV{'perllibdir'} || "/usr/share/automake-1.5";
  36.   unshift @INC, "$perllibdir";
  37. }
  38.  
  39. use Automake::Struct;
  40. struct (# Short name of the language (c, f77...).
  41.         'name' => "\$",
  42.         # Nice name of the language (C, Fortran 77...).
  43.         'Name' => "\$",
  44.  
  45.     # List of configure variables which must be defined.
  46.     'config_vars' => '@',
  47.  
  48.         'ansi'    => "\$",
  49.     # `pure' is `1' or `'.  A `pure' language is one where, if
  50.     # all the files in a directory are of that language, then we
  51.     # do not require the C compiler or any code to call it.
  52.     'pure'   => "\$",
  53.  
  54.     'autodep' => "\$",
  55.  
  56.     # Name of the compiling variable (COMPILE).
  57.         'compiler'  => "\$",
  58.         # Content of the compiling variable.
  59.         'compile'  => "\$",
  60.         # Flag to require compilation without linking (-c).
  61.         'compile_flag' => "\$",
  62.         'extensions'      => '@',
  63.         'flags' => "\$",
  64.     # Should the flag be defined as a configure variable.
  65.     # Defaults to true.  FIXME: this should go away once
  66.     # we move to autoconf tracing.
  67.     'define_flag' => "\$",
  68.  
  69.     # The file to use when generating rules for this language.
  70.     # The default is 'depend2'.
  71.     'rule_file' => "\$",
  72.  
  73.         # Name of the linking variable (LINK).
  74.         'linker' => "\$",
  75.         # Content of the linking variable.
  76.         'link' => "\$",
  77.  
  78.         # Name of the linker variable (LD).
  79.         'lder' => "\$",
  80.         # Content of the linker variable ($(CC)).
  81.         'ld' => "\$",
  82.  
  83.         # Flag to specify the output file (-o).
  84.         'output_flag' => "\$",
  85.         '_finish' => "\$",
  86.  
  87.     # This is a subroutine which is called whenever we finally
  88.     # determine the context in which a source file will be
  89.     # compiled.
  90.     '_target_hook' => "\$");
  91.  
  92.  
  93. sub finish ($)
  94. {
  95.   my ($self) = @_;
  96.   if (defined $self->_finish)
  97.     {
  98.       &{$self->_finish} ();
  99.     }
  100. }
  101.  
  102. sub target_hook ($$$$)
  103. {
  104.     my ($self) = @_;
  105.     if (defined $self->_target_hook)
  106.     {
  107.     &{$self->_target_hook} (@_);
  108.     }
  109. }
  110.  
  111. package Automake;
  112.  
  113. require 5.005;
  114. use strict 'vars', 'subs';
  115. use File::Basename;
  116. use IO::File;
  117.  
  118. my $me = basename ($0);
  119.  
  120.  
  121. ## ----------- ##
  122. ## Constants.  ##
  123. ## ----------- ##
  124.  
  125. # Parameters set by configure.  Not to be changed.  NOTE: assign
  126. # VERSION as string so that eg version 0.30 will print correctly.
  127. my $VERSION = "1.5";
  128. my $PACKAGE = "automake";
  129. my $prefix = "/usr";
  130. my $libdir = "/usr/share/automake-1.5";
  131.  
  132. # String constants.
  133. my $IGNORE_PATTERN = '^\s*##([^#\n].*)?\n';
  134. my $WHITE_PATTERN = '^\s*$';
  135. my $COMMENT_PATTERN = '^#';
  136. my $TARGET_PATTERN='[$a-zA-Z_.@][-.a-zA-Z0-9_(){}/$+@]*';
  137. # A rule has three parts: a list of targets, a list of dependencies,
  138. # and optionally actions.
  139. my $RULE_PATTERN =
  140.   "^($TARGET_PATTERN(?:(?:\\\\\n|\\s)+$TARGET_PATTERN)*) *:([^=].*|)\$";
  141.  
  142. my $SUFFIX_RULE_PATTERN = '^\.([a-zA-Z0-9+]+)\.([a-zA-Z0-9+]+)$';
  143. # Only recognize leading spaces, not leading tabs.  If we recognize
  144. # leading tabs here then we need to make the reader smarter, because
  145. # otherwise it will think rules like `foo=bar; \' are errors.
  146. my $MACRO_PATTERN = '^[A-Za-z0-9_@]+$';
  147. my $ASSIGNMENT_PATTERN = '^ *([^ \t=:+]*)\s*([:+]?)=\s*(.*)$';
  148. # This pattern recognizes a Gnits version id and sets $1 if the
  149. # release is an alpha release.  We also allow a suffix which can be
  150. # used to extend the version number with a "fork" identifier.
  151. my $GNITS_VERSION_PATTERN = '\d+\.\d+([a-z]|\.\d+)?(-[A-Za-z0-9]+)?';
  152. my $IF_PATTERN =          '^if\s+(!?)\s*([A-Za-z][A-Za-z0-9_]*)\s*(?:#.*)?$';
  153. my $ELSE_PATTERN =   '^else(?:\s+(!?)\s*([A-Za-z][A-Za-z0-9_]*))?\s*(?:#.*)?$';
  154. my $ENDIF_PATTERN = '^endif(?:\s+(!?)\s*([A-Za-z][A-Za-z0-9_]*))?\s*(?:#.*)?$';
  155. my $PATH_PATTERN='(\w|[/.-])+';
  156. # This will pass through anything not of the prescribed form.
  157. my $INCLUDE_PATTERN = ('^include\s+'
  158.                . '((\$\(top_srcdir\)/' . $PATH_PATTERN . ')'
  159.                . '|(\$\(srcdir\)/' . $PATH_PATTERN . ')'
  160.                . '|([^/\$]' . $PATH_PATTERN. '))\s*(#.*)?$');
  161.  
  162. # Some regular expressions.  One reason to put them here is that it
  163. # makes indentation work better in Emacs.
  164. my $AC_CONFIG_AUX_DIR_PATTERN = 'AC_CONFIG_AUX_DIR\(([^)]+)\)';
  165. my $AM_INIT_AUTOMAKE_PATTERN = 'AM_INIT_AUTOMAKE\([^,]*,([^,)]+)[,)]';
  166. my $AM_PACKAGE_VERSION_PATTERN = '^\s*\[?([^]\s]+)\]?\s*$';
  167.  
  168. # This handles substitution references like ${foo:.a=.b}.
  169. my $SUBST_REF_PATTERN = "^([^:]*):([^=]*)=(.*)\$";
  170.  
  171. # Note that there is no AC_PATH_TOOL.  But we don't really care.
  172. my $AC_CHECK_PATTERN = 'AC_(CHECK|PATH)_(PROG|PROGS|TOOL)\(\[?(\w+)';
  173. my $AM_MISSING_PATTERN = 'AM_MISSING_PROG\(\[?(\w+)';
  174. # Just check for alphanumeric in AC_SUBST.  If you do AC_SUBST(5),
  175. # then too bad.
  176. my $AC_SUBST_PATTERN = 'AC_SUBST\(\[?(\w+)';
  177. my $AM_CONDITIONAL_PATTERN = 'AM_CONDITIONAL\(\[?(\w+)';
  178. # Match `-d' as a command-line argument in a string.
  179. my $DASH_D_PATTERN = "(^|\\s)-d(\\s|\$)";
  180.  
  181. # Constants to define the "strictness" level.
  182. my $FOREIGN = 0;
  183. my $GNU = 1;
  184. my $GNITS = 2;
  185.  
  186. # Values for AC_CANONICAL_*
  187. my $AC_CANONICAL_HOST = 1;
  188. my $AC_CANONICAL_SYSTEM = 2;
  189.  
  190. # Values indicating when something should be cleaned.  Right now we
  191. # only need to handle `mostly'- and `dist'-clean; add more as
  192. # required.
  193. my $MOSTLY_CLEAN = 0;
  194. my $DIST_CLEAN = 1;
  195.  
  196. # Files installed by libtoolize.
  197. my @libtoolize_files = ('ltmain.sh', 'config.guess', 'config.sub');
  198. # ltconfig appears here for compatibility with old versions of libtool.
  199. my @libtoolize_sometimes = ('ltconfig', 'ltcf-c.sh', 'ltcf-cxx.sh',
  200.                 'ltcf-gcj.sh');
  201.  
  202. # Commonly found files we look for and automatically include in
  203. # DISTFILES.
  204. my @common_files =
  205.   (
  206.    'README', 'THANKS', 'TODO', 'NEWS', 'COPYING', 'COPYING.LIB',
  207.    'INSTALL', 'ABOUT-NLS', 'ChangeLog', 'configure.ac',
  208.    'configure.in', 'configure', 'config.guess', 'config.sub',
  209.    'AUTHORS', 'BACKLOG', 'ABOUT-GNU', 'libversion.in',
  210.    'mdate-sh', 'mkinstalldirs', 'install-sh', 'texinfo.tex',
  211.    'ansi2knr.c', 'ansi2knr.1', 'elisp-comp',
  212.    # ltconfig appears here for compatibility with old versions
  213.    # of libtool.
  214.    'ylwrap', 'acinclude.m4', @libtoolize_files, @libtoolize_sometimes,
  215.    'missing', 'depcomp', 'compile', 'py-compile'
  216.   );
  217.  
  218. # Commonly used files we auto-include, but only sometimes.
  219. my @common_sometimes =
  220.   (
  221.    'aclocal.m4', 'acconfig.h', 'config.h.top',
  222.    'config.h.bot', 'stamp-h.in', 'stamp-vti'
  223.   );
  224.  
  225. # Copyright on generated Makefile.ins.
  226. my $gen_copyright = "\
  227. # Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
  228. # Free Software Foundation, Inc.
  229. # This Makefile.in is free software; the Free Software Foundation
  230. # gives unlimited permission to copy and/or distribute it,
  231. # with or without modifications, as long as this notice is preserved.
  232.  
  233. # This program is distributed in the hope that it will be useful,
  234. # but WITHOUT ANY WARRANTY, to the extent permitted by law; without
  235. # even the implied warranty of MERCHANTABILITY or FITNESS FOR A
  236. # PARTICULAR PURPOSE.
  237. ";
  238.  
  239. # These constants are returned by lang_*_rewrite functions.
  240. # LANG_SUBDIR means that the resulting object file should be in a
  241. # subdir if the source file is.  In this case the file name cannot
  242. # have `..' components.
  243. my $LANG_IGNORE = 0;
  244. my $LANG_PROCESS = 1;
  245. my $LANG_SUBDIR = 2;
  246.  
  247. # Directories installed during 'install-exec' phase.
  248. my %exec_dir_p =
  249.   (
  250.    'bin'    => 1,
  251.    'sbin'    => 1,
  252.    'libexec'    => 1,
  253.    'data'    => 0,
  254.    'sysconf'    => 1,
  255.    'localstate'    => 1,
  256.    'lib'    => 1,
  257.    'info'    => 0,
  258.    'man'    => 0,
  259.    'include'    => 0,
  260.    'oldinclude'    => 0,
  261.    'pkgdata'    => 0,
  262.    'pkglib'    => 1,
  263.    'pkginclude'    => 0
  264.   );
  265.  
  266. # Map from obsolete macros to hints for new macros.
  267. # If you change this, change the corresponding list in aclocal.in.
  268. # FIXME: should just put this into a single file.
  269. my %obsolete_macros =
  270.     (
  271.      'AC_FEATURE_CTYPE'        => "use `AC_HEADER_STDC'",
  272.      'AC_FEATURE_ERRNO'        => "add `strerror' to `AC_REPLACE_FUNCS(...)'",
  273.      'AC_FEATURE_EXIT'        => '',
  274.      'AC_SYSTEM_HEADER'        => '',
  275.  
  276.      # Note that we do not handle this one, because it is still run
  277.      # from AM_CONFIG_HEADER.  So we deal with it specially in
  278.      # &scan_autoconf_files.
  279.      # 'AC_CONFIG_HEADER'    => "use `AM_CONFIG_HEADER'",
  280.  
  281.      'fp_C_PROTOTYPES'        => "use `AM_C_PROTOTYPES'",
  282.      'fp_PROG_CC_STDC'        => "use `AM_PROG_CC_STDC'",
  283.      'fp_PROG_INSTALL'        => "use `AC_PROG_INSTALL'",
  284.      'fp_WITH_DMALLOC'        => "use `AM_WITH_DMALLOC'",
  285.      'fp_WITH_REGEX'        => "use `AM_WITH_REGEX'",
  286.      'gm_PROG_LIBTOOL'        => "use `AM_PROG_LIBTOOL'",
  287.      'jm_MAINTAINER_MODE'    => "use `AM_MAINTAINER_MODE'",
  288.      'md_TYPE_PTRDIFF_T'    => "use `AM_TYPE_PTRDIFF_T'",
  289.      'ud_PATH_LISPDIR'        => "use `AM_PATH_LISPDIR'",
  290.      'ud_GNU_GETTEXT'        => "use `AM_GNU_GETTEXT'",
  291.  
  292.      # Now part of autoconf proper, under a different name.
  293.      'AM_FUNC_FNMATCH'        => "use `AC_FUNC_FNMATCH'",
  294.      'fp_FUNC_FNMATCH'        => "use `AC_FUNC_FNMATCH'",
  295.      'AM_SANITY_CHECK_CC'    => "automatically done by `AC_PROG_CC'",
  296.      'AM_PROG_INSTALL'        => "use `AC_PROG_INSTALL'",
  297.      'AM_EXEEXT'        => "use `AC_EXEEXT'",
  298.      'AM_CYGWIN32'        => "use `AC_CYGWIN'",
  299.      'AM_MINGW32'        => "use `AC_MINGW32'",
  300.      'AM_FUNC_MKTIME'        => "use `AC_FUNC_MKTIME'",
  301.  
  302. # These aren't quite obsolete.
  303. #      'md_PATH_PROG',
  304.      );
  305.  
  306. # Regexp to match the above macros.
  307. my $obsolete_rx = '\b(' . join ('|', keys %obsolete_macros) . ')\b';
  308.  
  309.  
  310.  
  311. ## ---------------------------------- ##
  312. ## Variables related to the options.  ##
  313. ## ---------------------------------- ##
  314.  
  315. # TRUE if we should always generate Makefile.in.
  316. my $force_generation = 1;
  317.  
  318. # Strictness level as set on command line.
  319. my $default_strictness = $GNU;
  320.  
  321. # Name of strictness level, as set on command line.
  322. my $default_strictness_name = 'gnu';
  323.  
  324. # This is TRUE if automatic dependency generation code should be
  325. # included in generated Makefile.in.
  326. my $cmdline_use_dependencies = 1;
  327.  
  328. # TRUE if in verbose mode.
  329. my $verbose = 0;
  330.  
  331. # This holds our (eventual) exit status.  We don't actually exit until
  332. # we have processed all input files.
  333. my $exit_status = 0;
  334.  
  335. # From the Perl manual.
  336. my $symlink_exists = (eval 'symlink ("", "");', $@ eq '');
  337.  
  338. # TRUE if missing standard files should be installed.
  339. my $add_missing = 0;
  340.  
  341. # TRUE if we should copy missing files; otherwise symlink if possible.
  342. my $copy_missing = 0;
  343.  
  344. # TRUE if we should always update files that we know about.
  345. my $force_missing = 0;
  346.  
  347.  
  348. ## ---------------------------------------- ##
  349. ## Variables filled during files scanning.  ##
  350. ## ---------------------------------------- ##
  351.  
  352. # Name of the top autoconf input: `configure.ac' or `configure.in'.
  353. my $configure_ac = '';
  354.  
  355. # Files found by scanning configure.ac for LIBOBJS.
  356. my %libsources = ();
  357.  
  358. # True if AM_C_PROTOTYPES appears in configure.ac.
  359. my $am_c_prototypes = 0;
  360.  
  361. # Names used in AC_CONFIG_HEADER call.  @config_fullnames holds the
  362. # name which appears in AC_CONFIG_HEADER, colon and all.
  363. # @config_names holds the file names.  @config_headers holds the '.in'
  364. # files.  Ordinarily these are similar, but they can be different if
  365. # the weird "NAME:FILE" syntax is used.
  366. my @config_fullnames = ();
  367. my @config_names = ();
  368. my @config_headers = ();
  369. # Line number at which AC_CONFIG_HEADER appears in configure.ac.
  370. my $config_header_line = 0;
  371.  
  372. # Directory where output files go.  Actually, output files are
  373. # relative to this directory.
  374. my $output_directory = '.';
  375.  
  376. # List of Makefile.am's to process, and their corresponding outputs.
  377. my @input_files = ();
  378. my %output_files = ();
  379.  
  380. # Complete list of Makefile.am's that exist.
  381. my @configure_input_files = ();
  382.  
  383. # List of files in AC_OUTPUT without Makefile.am, and their outputs.
  384. my @other_input_files = ();
  385. # Line number at which AC_OUTPUT seen.
  386. my $ac_output_line = 0;
  387.  
  388. # List of directories to search for configure-required files.  This
  389. # can be set by AC_CONFIG_AUX_DIR.
  390. my @config_aux_path = ('.', '..', '../..');
  391. my $config_aux_dir = '';
  392. my $config_aux_dir_set_in_configure_in = 0;
  393.  
  394. # Whether AM_GNU_GETTEXT has been seen in configure.ac.
  395. my $seen_gettext = 0;
  396. # Line number at which AM_GNU_GETTEXT seen.
  397. my $ac_gettext_line = 0;
  398.  
  399. # TRUE if AC_DECL_YYTEXT was seen.
  400. my $seen_decl_yytext = 0;
  401.  
  402. # TRUE if we've seen AC_CANONICAL_(HOST|SYSTEM).  The presence of
  403. # AC_CHECK_TOOL also sets this.
  404. my $seen_canonical = 0;
  405.  
  406. # TRUE if we've seen AC_PROG_LIBTOOL.
  407. my $seen_libtool = 0;
  408. my $libtool_line = 0;
  409.  
  410. # TRUE if we've seen AM_MAINTAINER_MODE.
  411. my $seen_maint_mode = 0;
  412.  
  413. # Actual version we've seen.
  414. my $package_version = '';
  415.  
  416. # Line number where we saw version definition.
  417. my $package_version_line = 0;
  418.  
  419. # TRUE if we've seen AM_PATH_LISPDIR.
  420. my $seen_lispdir = 0;
  421.  
  422. # TRUE if we've seen AM_PATH_PYTHON.
  423. my $seen_pythondir = 0;
  424.  
  425. # TRUE if we've seen AC_OBJEXT.
  426. my $seen_objext = 0;
  427.  
  428. # TRUE if we've seen AC_ENABLE_MULTILIB.
  429. my $seen_multilib = 0;
  430.  
  431. # TRUE if we've seen AM_PROG_CC_C_O
  432. my $seen_cc_c_o = 0;
  433.  
  434. # TRUE if we've seen AM_INIT_AUTOMAKE.
  435. my $seen_init_automake = 0;
  436.  
  437. # Hash table of discovered configure substitutions.  Keys are names,
  438. # values are `FILE:LINE' strings which are used by error message
  439. # generation.
  440. my %configure_vars = ();
  441.  
  442. # This is used to keep track of which variable definitions we are
  443. # scanning.  It is only used in certain limited ways, but it has to be
  444. # global.  It is declared just for documentation purposes.
  445. my %vars_scanned = ();
  446.  
  447. # TRUE if --cygnus seen.
  448. my $cygnus_mode = 0;
  449.  
  450. # Hash table of AM_CONDITIONAL variables seen in configure.
  451. my %configure_cond = ();
  452.  
  453. # This maps extensions onto language names.
  454. my %extension_map = ();
  455.  
  456. # List of the DIST_COMMON files we discovered while reading
  457. # configure.in
  458. my $configure_dist_common = '';
  459.  
  460. # This maps languages names onto objects.
  461. my %languages = ();
  462.  
  463. # List of targets we must always output.
  464. # FIXME: Complete, and remove falsely required targets.
  465. my %required_targets =
  466.   (
  467.    'all'          => 1,
  468.    'dvi'      => 1,
  469.    'info'      => 1,
  470.    'install-info' => 1,
  471.    'install'      => 1,
  472.    'install-data' => 1,
  473.    'install-exec' => 1,
  474.    'uninstall'    => 1,
  475.  
  476.    # FIXME: Not required, temporary hacks.
  477.    # Well, actually they are sort of required: the -recursive
  478.    # targets will run them anyway...
  479.    'dvi-am'          => 1,
  480.    'info-am'         => 1,
  481.    'install-data-am' => 1,
  482.    'install-exec-am' => 1,
  483.    'installcheck-am' => 1,
  484.    'uninstall-am' => 1,
  485.  
  486.    'install-man' => 1,
  487.   );
  488.  
  489.  
  490.  
  491. ################################################################
  492.  
  493. ## ------------------------------------------ ##
  494. ## Variables reset by &initialize_per_input.  ##
  495. ## ------------------------------------------ ##
  496.  
  497. # Basename and relative dir of the input file.
  498. my $am_file_name;
  499. my $am_relative_dir;
  500.  
  501. # Same but wrt Makefile.in.
  502. my $in_file_name;
  503. my $relative_dir;
  504.  
  505. # These two variables are used when generating each Makefile.in.
  506. # They hold the Makefile.in until it is ready to be printed.
  507. my $output_rules;
  508. my $output_vars;
  509. my $output_trailer;
  510. my $output_all;
  511. my $output_header;
  512.  
  513. # Suffixes found during a run.
  514. my @suffixes;
  515.  
  516. # Handling the variables.
  517. #
  518. # For a $VAR:
  519. # - $var_value{$VAR}{$COND} is its value associated to $COND,
  520. # - $var_line{$VAR} is where it has been defined,
  521. # - $var_comment{$VAR} are the comments associated to it.
  522. # - $var_type{$VAR} is how it has been defined (`', `+', or `:'),
  523. # - $var_is_am{$VAR} is true if the variable is owned by Automake.
  524. my %var_value;
  525. my %var_line;
  526. my %var_comment;
  527. my %var_type;
  528. my %var_is_am;
  529.  
  530. # This holds a 1 if a particular variable was examined.
  531. my %content_seen;
  532.  
  533. # This holds the names which are targets.  These also appear in
  534. # %contents.
  535. my %targets;
  536.  
  537. # Same as %VAR_VALUE, but for targets.
  538. my %target_conditional;
  539.  
  540. # This is the conditional stack.
  541. my @cond_stack;
  542.  
  543. # This holds the set of included files.
  544. my @include_stack;
  545.  
  546. # This holds a list of directories which we must create at `dist'
  547. # time.  This is used in some strange scenarios involving weird
  548. # AC_OUTPUT commands.
  549. my %dist_dirs;
  550.  
  551. # List of dependencies for the obvious targets.
  552. my @all;
  553. my @check;
  554. my @check_tests;
  555.  
  556. # Holds the dependencies of targets which dependencies are factored.
  557. # Typically, `.PHONY' will appear in plenty of *.am files, but must
  558. # be output once.  Arguably all pure dependencies could be subject
  559. # to this factorization, but it is not unpleasant to have paragraphs
  560. # in Makefile: keeping related stuff altogether.
  561. my %dependencies;
  562.  
  563. # Holds the factored actions.  Tied to %DEPENDENCIES, i.e., filled
  564. # only when keys exists in %DEPENDENCIES.
  565. my %actions;
  566.  
  567. # A list of files deleted by `maintainer-clean'.
  568. my @maintainer_clean_files;
  569.  
  570. # Keys in this hash table are object files or other files in
  571. # subdirectories which need to be removed.  This only holds files
  572. # which are created by compilations.  The value in the hash indicates
  573. # when the file should be removed.
  574. my %compile_clean_files;
  575.  
  576. # Value of `$(SOURCES)', used by tags.am.
  577. my @sources;
  578. # Sources which go in the distribution.
  579. my @dist_sources;
  580.  
  581. # This hash maps object file names onto their corresponding source
  582. # file names.  This is used to ensure that each object is created
  583. # by a single source file.
  584. my %object_map;
  585.  
  586. # This keeps track of the directories for which we've already
  587. # created `.dirstamp' code.
  588. my %directory_map;
  589.  
  590. # All .P files.
  591. my %dep_files;
  592.  
  593. # Strictness levels.
  594. my $strictness;
  595. my $strictness_name;
  596.  
  597. # Options from AUTOMAKE_OPTIONS.
  598. my %options;
  599.  
  600. # Whether or not dependencies are handled.  Can be further changed
  601. # in handle_options.
  602. my $use_dependencies;
  603.  
  604. # This is a list of all targets to run during "make dist".
  605. my @dist_targets;
  606.  
  607. # Keys in this hash are the basenames of files which must depend
  608. # on ansi2knr.
  609. my %de_ansi_files;
  610.  
  611. # This maps the source extension of a suffix rule to its
  612. # corresponding output extension.
  613. my %suffix_rules;
  614.  
  615. # This is the name of the redirect `all' target to use.
  616. my $all_target;
  617.  
  618. # This keeps track of which extensions we've seen (that we care
  619. # about).
  620. my %extension_seen;
  621.  
  622. # This is random scratch space for the language finish functions.
  623. # Don't randomly overwrite it; examine other uses of keys first.
  624. my %language_scratch;
  625.  
  626. # We keep track of which objects need special (per-executable)
  627. # handling on a per-language basis.
  628. my %lang_specific_files;
  629.  
  630. # This is set when `handle_dist' has finished.  Once this happens,
  631. # we should no longer push on dist_common.
  632. my $handle_dist_run;
  633.  
  634. # Used to store a set of linkers needed to generate the sources currently
  635. # under consideration.
  636. my %linkers_used;
  637.  
  638. # True if we need `LINK' defined.  This is a hack.
  639. my $need_link;
  640.  
  641. # This is the list of such variables to output.
  642. # FIXME: Might be useless actually.
  643. my @var_list;
  644.  
  645. # Was get_object_extension run?
  646. # FIXME: This is a hack. a better switch should be found.
  647. my $get_object_extension_was_run;
  648.  
  649.  
  650. ## --------------------------------- ##
  651. ## Forward subroutine declarations.  ##
  652. ## --------------------------------- ##
  653. sub register_language (%);
  654. sub file_contents_internal ($$%);
  655.  
  656.  
  657. # &initialize_per_input ()
  658. # ------------------------
  659. # (Re)-Initialize per-Makefile.am variables.
  660. sub initialize_per_input ()
  661. {
  662.     $am_file_name = '';
  663.     $am_relative_dir = '';
  664.  
  665.     $in_file_name = '';
  666.     $relative_dir = '';
  667.  
  668.     $output_rules = '';
  669.     $output_vars = '';
  670.     $output_trailer = '';
  671.     $output_all = '';
  672.     $output_header = '';
  673.  
  674.     @suffixes = ();
  675.  
  676.     %var_value = ();
  677.     %var_line = ();
  678.     %var_comment = ();
  679.     %var_type = ();
  680.     %var_is_am = ();
  681.  
  682.     %content_seen = ();
  683.  
  684.     %targets = ();
  685.  
  686.     %target_conditional = ();
  687.  
  688.     @cond_stack = ();
  689.  
  690.     @include_stack = ();
  691.  
  692.     $relative_dir = '';
  693.  
  694.     $am_relative_dir = '';
  695.  
  696.     %dist_dirs = ();
  697.  
  698.     @all = ();
  699.     @check = ();
  700.     @check_tests = ();
  701.  
  702.     %dependencies =
  703.       (
  704.        # Texinfoing.
  705.        'dvi'      => [],
  706.        'dvi-am'   => [],
  707.        'info'     => [],
  708.        'info-am'  => [],
  709.  
  710.        # Installing/uninstalling.
  711.        'install-data-am'      => [],
  712.        'install-exec-am'      => [],
  713.        'uninstall-am'         => [],
  714.  
  715.        'install-man'          => [],
  716.        'uninstall-man'          => [],
  717.  
  718.        'install-info'         => [],
  719.        'install-info-am'      => [],
  720.        'uninstall-info'       => [],
  721.  
  722.        'installcheck-am'      => [],
  723.  
  724.        # Cleaning.
  725.        'clean-am'             => [],
  726.        'mostlyclean-am'       => [],
  727.        'maintainer-clean-am'  => [],
  728.        'distclean-am'         => [],
  729.        'clean'                => [],
  730.        'mostlyclean'          => [],
  731.        'maintainer-clean'     => [],
  732.        'distclean'            => [],
  733.  
  734.        # Tarballing.
  735.        'dist-all'             => [],
  736.  
  737.        # Phoning.
  738.        '.PHONY'               => []
  739.       );
  740.     %actions = ();
  741.  
  742.     @maintainer_clean_files = ();
  743.  
  744.     @sources = ();
  745.     @dist_sources = ();
  746.  
  747.     %object_map = ();
  748.  
  749.     %directory_map = ();
  750.  
  751.     %dep_files = ();
  752.  
  753.     $strictness = $default_strictness;
  754.     $strictness_name = $default_strictness_name;
  755.  
  756.     %options = ();
  757.  
  758.     $use_dependencies = $cmdline_use_dependencies;
  759.  
  760.     @dist_targets = ();
  761.  
  762.     %de_ansi_files = ();
  763.  
  764.     %suffix_rules = ();
  765.  
  766.     $all_target = '';
  767.  
  768.     %extension_seen = ();
  769.  
  770.     %language_scratch = ();
  771.  
  772.     %lang_specific_files = ();
  773.  
  774.     $handle_dist_run = 0;
  775.  
  776.     $need_link = 0;
  777.  
  778.     @var_list = ();
  779.  
  780.     $get_object_extension_was_run = 0;
  781.  
  782.     %compile_clean_files = ();
  783. }
  784.  
  785.  
  786. ################################################################
  787.  
  788. # Initialize our list of languages that are internally supported.
  789.  
  790. # C.
  791. register_language ('name' => 'c',
  792.            'Name' => 'C',
  793.            'config_vars' => ['CC'],
  794.            'ansi' => 1,
  795.            'autodep' => '',
  796.            'flags' => 'CFLAGS',
  797.            'compiler' => 'COMPILE',
  798.            'compile' => '$(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)',
  799.            'lder' => 'CCLD',
  800.            'ld' => '$(CC)',
  801.            'linker' => 'LINK',
  802.            'link' => '$(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@',
  803.            'compile_flag' => '-c',
  804.            'extensions' => ['c'],
  805.            '_finish' => \&lang_c_finish);
  806.  
  807. # C++.
  808. register_language ('name' => 'cxx',
  809.            'Name' => 'C++',
  810.            'config_vars' => ['CXX'],
  811.            'linker' => 'CXXLINK',
  812.            'link' => '$(CXXLD) $(AM_CXXFLAGS) $(CXXFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@',
  813.            'autodep' => 'CXX',
  814.            'flags' => 'CXXFLAGS',
  815.            'compile' => '$(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS)',
  816.            'compiler' => 'CXXCOMPILE',
  817.            'compile_flag' => '-c',
  818.            'output_flag' => '-o',
  819.            'lder' => 'CXXLD',
  820.            'ld' => '$(CXX)',
  821.            'pure' => 1,
  822.            'extensions' => ['c++', 'cc', 'cpp', 'cxx', 'C']);
  823.  
  824. # Objective C.
  825. register_language ('name' => 'objc',
  826.            'Name' => 'Objective C',
  827.            'config_vars' => ['OBJC'],
  828.            'linker' => 'OBJCLINK',,
  829.             'link' => '$(OBJCLD) $(AM_OBJCFLAGS) $(OBJCFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@',
  830.            'autodep' => 'OBJC',
  831.            'flags' => 'OBJCFLAGS',
  832.            'compile' => '$(OBJC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_OBJCFLAGS) $(OBJCFLAGS)',
  833.            'compiler' => 'OBJCCOMPILE',
  834.            'compile_flag' => '-c',
  835.            'output_flag' => '-o',
  836.            'lder' => 'OBJCLD',
  837.            'ld' => '$(OBJC)',
  838.            'pure' => 1,
  839.            'extensions' => ['m']);
  840.  
  841. # Headers.
  842. register_language ('name' => 'header',
  843.            'Name' => 'Header',
  844.            'extensions' => ['h', 'H', 'hxx', 'h++', 'hh', 'hpp', 'inc'],
  845.            # Nothing to do.
  846.            '_finish' => sub { });
  847.  
  848. # Yacc (C & C++).
  849. register_language ('name' => 'yacc',
  850.            'Name' => 'Yacc',
  851.            'config_vars' => ['YACC'],
  852.            'flags' => 'YFLAGS',
  853.            'define_flag' => 0,
  854.            'compile' => '$(YACC) $(YFLAGS) $(AM_YFLAGS)',
  855.            'compiler' => 'YACCCOMPILE',
  856.            'extensions' => ['y'],
  857.            'rule_file' => 'yacc',
  858.            '_finish' => \&lang_yacc_finish,
  859.            '_target_hook' => \&lang_yacc_target_hook);
  860. register_language ('name' => 'yaccxx',
  861.            'Name' => 'Yacc (C++)',
  862.            'config_vars' => ['YACC'],
  863.            'rule_file' => 'yacc',
  864.            'flags' => 'YFLAGS',
  865.            'define_flag' => 0,
  866.            'compiler' => 'YACCCOMPILE',
  867.            'compile' => '$(YACC) $(YFLAGS) $(AM_YFLAGS)',
  868.            'extensions' => ['y++', 'yy', 'yxx', 'ypp'],
  869.            '_finish' => \&lang_yacc_finish,
  870.            '_target_hook' => \&lang_yacc_target_hook);
  871.  
  872. # Lex (C & C++).
  873. register_language ('name' => 'lex',
  874.            'Name' => 'Lex',
  875.            'config_vars' => ['LEX'],
  876.            'rule_file' => 'lex',
  877.            'flags' => 'LFLAGS',
  878.            'define_flag' => 0,
  879.            'compile' => '$(LEX) $(LFLAGS) $(AM_LFLAGS)',
  880.            'compiler' => 'LEXCOMPILE',
  881.            'extensions' => ['l'],
  882.            '_finish' => \&lang_lex_finish);
  883. register_language ('name' => 'lexxx',
  884.            'Name' => 'Lex (C++)',
  885.            'config_vars' => ['LEX'],
  886.            'rule_file' => 'lex',
  887.            'flags' => 'LFLAGS',
  888.            'define_flag' => 0,
  889.            'compile' => '$(LEX) $(LFLAGS) $(AM_LFLAGS)',
  890.            'compiler' => 'LEXCOMPILE',
  891.            'extensions' => ['l++', 'll', 'lxx', 'lpp'],
  892.            '_finish' => \&lang_lex_finish);
  893.  
  894. # Assembler.
  895. register_language ('name' => 'asm',
  896.            'Name' => 'Assembler',
  897.            'config_vars' => ['AS', 'ASFLAGS'],
  898.  
  899.            'flags' => 'ASFLAGS',
  900.            # Users can set AM_ASFLAGS to includes DEFS, INCLUDES,
  901.            # or anything else required.  They can also set AS.
  902.            'compile' => '$(AS) $(AM_ASFLAGS) $(ASFLAGS)',
  903.            'compiler' => 'ASCOMPILE',
  904.            'compile_flag' => '-c',
  905.            'extensions' => ['s', 'S'],
  906.  
  907.            # With assembly we still use the C linker.
  908.            '_finish' => \&lang_c_finish);
  909.  
  910. # Fortran 77
  911. register_language ('name' => 'f77',
  912.            'Name' => 'Fortran 77',
  913.            'linker' => 'F77LINK',
  914.            'link' => '$(F77LD) $(AM_FFLAGS) $(FFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@',
  915.            'flags' => 'FFLAGS',
  916.            'compile' => '$(F77) $(AM_FFLAGS) $(FFLAGS)',
  917.            'compiler' => 'F77COMPILE',
  918.            'compile_flag' => '-c',
  919.            'output_flag' => '-o',
  920.            'lder' => 'F77LD',
  921.            'ld' => '$(F77)',
  922.            'pure' => 1,
  923.            'extensions' => ['f', 'for', 'f90']);
  924.  
  925. # Preprocessed Fortran 77
  926. #
  927. # The current support for preprocessing Fortran 77 just involves
  928. # passing `$(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS)
  929. # $(CPPFLAGS)' as additional flags to the Fortran 77 compiler, since
  930. # this is how GNU Make does it; see the `GNU Make Manual, Edition 0.51
  931. # for `make' Version 3.76 Beta' (specifically, from info file
  932. # `(make)Catalogue of Rules').
  933. #
  934. # A better approach would be to write an Autoconf test
  935. # (i.e. AC_PROG_FPP) for a Fortran 77 preprocessor, because not all
  936. # Fortran 77 compilers know how to do preprocessing.  The Autoconf
  937. # macro AC_PROG_FPP should test the Fortran 77 compiler first for
  938. # preprocessing capabilities, and then fall back on cpp (if cpp were
  939. # available).
  940. register_language ('name' => 'ppf77',
  941.            'Name' => 'Preprocessed Fortran 77',
  942.            'config_vars' => ['F77'],
  943.            'linker' => 'F77LINK',
  944.            'link' => '$(F77LD) $(AM_FFLAGS) $(FFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@',
  945.            'lder' => 'F77LD',
  946.            'ld' => '$(F77)',
  947.            'flags' => 'FFLAGS',
  948.            'compiler' => 'PPF77COMPILE',
  949.            'compile' => '$(F77) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_FFLAGS) $(FFLAGS)',
  950.            'compile_flag' => '-c',
  951.            'output_flag' => '-o',
  952.            'pure' => 1,
  953.            'extensions' => ['F']);
  954.  
  955. # Ratfor.
  956. register_language ('name' => 'ratfor',
  957.            'Name' => 'Ratfor',
  958.            'config_vars' => ['F77'],
  959.            'linker' => 'F77LINK',
  960.            'link' => '$(F77LD) $(AM_FFLAGS) $(FFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@',
  961.            'lder' => 'F77LD',
  962.            'ld' => '$(F77)',
  963.            'flags' => 'RFLAGS',
  964.            # FIXME also FFLAGS.
  965.            'compile' => '$(F77) $(AM_FFLAGS) $(FFLAGS) $(AM_RFLAGS) $(RFLAGS)',
  966.            'compiler' => 'RCOMPILE',
  967.            'compile_flag' => '-c',
  968.            'output_flag' => '-o',
  969.            'pure' => 1,
  970.            'extensions' => ['r']);
  971.  
  972. # Java via gcj.
  973. register_language ('name' => 'java',
  974.            'Name' => 'Java',
  975.            'config_vars' => ['GCJ'],
  976.            'linker' => 'GCJLINK',
  977.            'link' => '$(GCJLD) $(AM_GCJFLAGS) $(GCJFLAGS) $(AM_LDFLAGS) $(LDFLAGS) -o $@',
  978.            'autodep' => 'GCJ',
  979.            'flags' => 'GCJFLAGS',
  980.            'compile' => '$(GCJ) $(AM_GCJFLAGS) $(GCJFLAGS)',
  981.            'compiler' => 'GCJCOMPILE',
  982.            'compile_flag' => '-c',
  983.            'output_flag' => '-o',
  984.            'lder' => 'GCJLD',
  985.            'ld' => '$(GCJ)',
  986.            'pure' => 1,
  987.            'extensions' => ['java', 'class', 'zip', 'jar']);
  988.  
  989. ################################################################
  990.  
  991. # Parse command line.
  992. &parse_arguments;
  993.  
  994. # Do configure.ac scan only once.
  995. &scan_autoconf_files;
  996.  
  997. die "$me: no `Makefile.am' found or specified\n"
  998.     if ! @input_files;
  999.  
  1000. # Now do all the work on each file.
  1001. # This guy must be local otherwise it's private to the loop.
  1002. use vars '$am_file';
  1003. local $am_file;
  1004. foreach $am_file (@input_files)
  1005. {
  1006.     if (! -f ($am_file . '.am'))
  1007.     {
  1008.     &am_error ("`" . $am_file . ".am' does not exist");
  1009.     }
  1010.     else
  1011.     {
  1012.      &generate_makefile ($output_files{$am_file}, $am_file);
  1013.     }
  1014. }
  1015.  
  1016. exit $exit_status;
  1017.  
  1018. # FIXME: This should be `my'ed next to its subs.
  1019. use vars '%require_file_found';
  1020.  
  1021. ################################################################
  1022.  
  1023. # prog_error (@PRINT-ME)
  1024. # ----------------------
  1025. # Signal a programming error, display PRINT-ME, and exit 1.
  1026. sub prog_error (@)
  1027. {
  1028.     print STDERR "$me: programming error: @_\n";
  1029.     exit 1;
  1030. }
  1031.  
  1032.  
  1033. # @RES
  1034. # uniq (@LIST)
  1035. # ------------
  1036. # Return LIST with no duplicates.
  1037. sub uniq (@)
  1038. {
  1039.    my @res = ();
  1040.    my %seen = ();
  1041.    foreach my $item (@_)
  1042.      {
  1043.        if (! defined $seen{$item})
  1044.      {
  1045.        $seen{$item} = 1;
  1046.        push (@res, $item);
  1047.      }
  1048.      }
  1049.    return @res;
  1050. }
  1051.  
  1052. # subst ($TEXT)
  1053. # -------------
  1054. # Return a configure-style substitution using the indicated text.
  1055. # We do this to avoid having the substitutions directly in automake.in;
  1056. # when we do that they are sometimes removed and this causes confusion
  1057. # and bugs.
  1058. sub subst ($)
  1059. {
  1060.     my ($text) = @_;
  1061.     return '@' . $text . '@';
  1062. }
  1063.  
  1064. ################################################################
  1065.  
  1066.  
  1067. # $BACKPATH
  1068. # &backname ($REL-DIR)
  1069. # --------------------
  1070. # If I `cd $REL-DIR', then to come back, I should `cd $BACKPATH'.
  1071. # For instance `src/foo' => `../..'.
  1072. # Works with non strictly increasing paths, i.e., `src/../lib' => `..'.
  1073. sub backname ($)
  1074. {
  1075.     my ($file) = @_;
  1076.     my @res;
  1077.     foreach (split (/\//, $file))
  1078.     {
  1079.     next if $_ eq '.' || $_ eq '';
  1080.     if ($_ eq '..')
  1081.     {
  1082.         pop @res;
  1083.     }
  1084.     else
  1085.     {
  1086.         push (@res, '..');
  1087.     }
  1088.     }
  1089.     return join ('/', @res) || '.';
  1090. }
  1091.  
  1092. ################################################################
  1093.  
  1094. # Parse command line.
  1095. sub parse_arguments ()
  1096. {
  1097.     # Start off as gnu.
  1098.     &set_strictness ('gnu');
  1099.  
  1100.     use Getopt::Long;
  1101.     Getopt::Long::config ("bundling");
  1102.     Getopt::Long::GetOptions
  1103.       (
  1104.        'version'     => \&version,
  1105.        'help'         => \&usage,
  1106.        'libdir:s'     => \$libdir,
  1107.        'gnu'         => sub { &set_strictness ('gnu'); },
  1108.        'gnits'         => sub { &set_strictness ('gnits'); },
  1109.        'cygnus'     => \$cygnus_mode,
  1110.        'foreign'     => sub { &set_strictness ('foreign'); },
  1111.        'include-deps'     => sub { $cmdline_use_dependencies = 1; },
  1112.        'i|ignore-deps'     => sub { $cmdline_use_dependencies = 0; },
  1113.        'no-force'     => sub { $force_generation = 0; },
  1114.        'f|force-missing'=> \$force_missing,
  1115.        'o|output-dir:s'    => \$output_directory,
  1116.        'a|add-missing'     => \$add_missing,
  1117.        'c|copy'     => \$copy_missing,
  1118.        'v|verbose'     => \$verbose,
  1119.        'Werror'         => sub { $SIG{"__WARN__"} = sub { die $_[0] } },
  1120.        'Wno-error'      => sub { $SIG{"__WARN__"} = 'DEFAULT' }
  1121.       )
  1122.     or exit 1;
  1123.  
  1124.     foreach my $arg (@ARGV)
  1125.     {
  1126.       # Handle $local:$input syntax.  Note that we only examine the
  1127.       # first ":" file to see if it is automake input; the rest are
  1128.       # just taken verbatim.  We still keep all the files around for
  1129.       # dependency checking, however.
  1130.       my ($local, $input, @rest) = split (/:/, $arg);
  1131.       if (! $input)
  1132.     {
  1133.       $input = $local;
  1134.     }
  1135.       else
  1136.     {
  1137.       # Strip .in; later on .am is tacked on.  That is how the
  1138.       # automake input file is found.  Maybe not the best way, but
  1139.       # it is easy to explain.
  1140.       $input =~ s/\.in$//
  1141.         or die "$me: invalid input file name `$arg'\n.";
  1142.     }
  1143.       push (@input_files, $input);
  1144.       $output_files{$input} = join (':', ($local, @rest));
  1145.     }
  1146.  
  1147.     # Take global strictness from whatever we currently have set.
  1148.     $default_strictness = $strictness;
  1149.     $default_strictness_name = $strictness_name;
  1150. }
  1151.  
  1152. ################################################################
  1153.  
  1154. # Generate a Makefile.in given the name of the corresponding Makefile and
  1155. # the name of the file output by config.status.
  1156. sub generate_makefile
  1157. {
  1158.     my ($output, $makefile) = @_;
  1159.  
  1160.     # Reset all the Makefile.am related variables.
  1161.     &initialize_per_input;
  1162.  
  1163.     # Name of input file ("Makefile.am") and output file
  1164.     # ("Makefile.in").  These have no directory components.
  1165.     $am_file_name = basename ($makefile) . '.am';
  1166.     $in_file_name = basename ($makefile) . '.in';
  1167.  
  1168.     # $OUTPUT is encoded.  If it contains a ":" then the first element
  1169.     # is the real output file, and all remaining elements are input
  1170.     # files.  We don't scan or otherwise deal with these input file,
  1171.     # other than to mark them as dependencies.  See
  1172.     # &scan_autoconf_files for details.
  1173.     my (@secondary_inputs);
  1174.     ($output, @secondary_inputs) = split (/:/, $output);
  1175.  
  1176.     $relative_dir = dirname ($output);
  1177.     $am_relative_dir = dirname ($makefile);
  1178.  
  1179.     &read_main_am_file ($makefile . '.am');
  1180.     if (&handle_options)
  1181.     {
  1182.     # Fatal error.  Just return, so we can continue with next file.
  1183.     return;
  1184.     }
  1185.  
  1186.     # There are a few install-related variables that you should not define.
  1187.     foreach my $var ('PRE_INSTALL', 'POST_INSTALL', 'NORMAL_INSTALL')
  1188.     {
  1189.     if (&variable_defined ($var) && !$var_is_am{$var})
  1190.     {
  1191.         &am_line_error ($var, "`$var' should not be defined");
  1192.     }
  1193.     }
  1194.  
  1195.     &handle_libtool;
  1196.  
  1197.     # At the toplevel directory, we might need config.guess, config.sub
  1198.     # or libtool scripts (ltconfig and ltmain.sh).
  1199.     if ($relative_dir eq '.')
  1200.     {
  1201.         # AC_CANONICAL_HOST and AC_CANONICAL_SYSTEM need config.guess and
  1202.         # config.sub.
  1203.         &require_config_file ($FOREIGN, 'config.guess', 'config.sub')
  1204.         if $seen_canonical;
  1205.     }
  1206.  
  1207.     # We still need Makefile.in here, because sometimes the `dist'
  1208.     # target doesn't re-run automake.
  1209.     if ($am_relative_dir eq $relative_dir)
  1210.     {
  1211.     # Only distribute the files if they are in the same subdir as
  1212.     # the generated makefile.
  1213.     &push_dist_common ($in_file_name, $am_file_name);
  1214.     }
  1215.  
  1216.     push (@sources, '$(SOURCES)')
  1217.     if &variable_defined ('SOURCES');
  1218.  
  1219.     # Must do this after reading .am file.  See read_main_am_file to
  1220.     # understand weird tricks we play there with variables.
  1221.     &define_variable ('subdir', $relative_dir);
  1222.  
  1223.     # Check first, because we might modify some state.
  1224.     &check_cygnus;
  1225.     &check_gnu_standards;
  1226.     &check_gnits_standards;
  1227.  
  1228.     &handle_configure ($output, $makefile, @secondary_inputs);
  1229.     &handle_gettext;
  1230.     &handle_libraries;
  1231.     &handle_ltlibraries;
  1232.     &handle_programs;
  1233.     &handle_scripts;
  1234.  
  1235.     # This must run first so that the ANSI2KNR definition is generated
  1236.     # before it is used by the _.c rules.  We have to do this because
  1237.     # a variable which is used in a dependency must be defined before
  1238.     # the target, or else make won't properly see it.
  1239.     &handle_compile;
  1240.     # This must be run after all the sources are scanned.
  1241.     &handle_languages;
  1242.  
  1243.     # Re-init SOURCES.  FIXME: other code shouldn't depend on this
  1244.     # (but currently does).
  1245.     macro_define ('SOURCES', 1, '', 'TRUE',
  1246.              join (' ', @sources), 'internal');
  1247.     &define_pretty_variable ('DIST_SOURCES', '', @dist_sources);
  1248.  
  1249.     &handle_multilib;
  1250.     &handle_texinfo;
  1251.     &handle_emacs_lisp;
  1252.     &handle_python;
  1253.     &handle_java;
  1254.     &handle_man_pages;
  1255.     &handle_data;
  1256.     &handle_headers;
  1257.     &handle_subdirs;
  1258.     &handle_tags;
  1259.     &handle_minor_options;
  1260.     &handle_tests;
  1261.  
  1262.     # This must come after most other rules.
  1263.     &handle_dist ($makefile);
  1264.  
  1265.     &handle_footer;
  1266.     &do_check_merge_target;
  1267.     &handle_all ($output);
  1268.  
  1269.     # FIXME: Gross!
  1270.     if (&variable_defined('lib_LTLIBRARIES') &&
  1271.     &variable_defined('bin_PROGRAMS'))
  1272.     {
  1273.     $output_rules .= "install-binPROGRAMS: install-libLTLIBRARIES\n\n";
  1274.     }
  1275.  
  1276.     &handle_installdirs;
  1277.     &handle_clean;
  1278.     &handle_factored_dependencies;
  1279.  
  1280.     &check_typos;
  1281.  
  1282.     if (! -d ($output_directory . '/' . $am_relative_dir))
  1283.     {
  1284.     mkdir ($output_directory . '/' . $am_relative_dir, 0755);
  1285.     }
  1286.  
  1287.     my ($out_file) = $output_directory . '/' . $makefile . ".in";
  1288.     if (! $force_generation && -e $out_file)
  1289.     {
  1290.     my ($am_time) = (stat ($makefile . '.am'))[9];
  1291.     my ($in_time) = (stat ($out_file))[9];
  1292.     # FIXME: should cache these times.
  1293.     my ($conf_time) = (stat ($configure_ac))[9];
  1294.     # FIXME: how to do unsigned comparison?
  1295.     if ($am_time < $in_time || $am_time < $conf_time)
  1296.     {
  1297.         # No need to update.
  1298.         return;
  1299.     }
  1300.     if (-f 'aclocal.m4')
  1301.     {
  1302.         my ($acl_time) = (stat _)[9];
  1303.         return if ($am_time < $acl_time);
  1304.     }
  1305.     }
  1306.  
  1307.     my $gm_file = new IO::File "> $out_file";
  1308.     if (! $gm_file)
  1309.     {
  1310.     warn "$me: ${am_file}.in: cannot write: $!\n";
  1311.     $exit_status = 1;
  1312.     return;
  1313.     }
  1314.     print "$me: creating ", $makefile, ".in\n" if $verbose;
  1315.  
  1316.     # In case we're running under MSWindows, don't write with CRLF
  1317.     # (as it causes problems for the dependency-file extraction in
  1318.     # AM_OUTPUT_DEPENDENCY_COMMANDS).
  1319.     binmode $gm_file;
  1320.  
  1321.     print $gm_file $output_vars;
  1322.     # We make sure that `all:' is the first target.
  1323.     print $gm_file $output_all;
  1324.     print $gm_file $output_header;
  1325.     print $gm_file $output_rules;
  1326.     print $gm_file $output_trailer;
  1327.  
  1328.     if (! $gm_file->close)
  1329.       {
  1330.     warn "$me: $am_file.in: cannot close: $!\n";
  1331.     $exit_status = 1;
  1332.     return;
  1333.       }
  1334. }
  1335.  
  1336. ################################################################
  1337.  
  1338. # A helper which handles the logic of requiring a version number in
  1339. # AUTOMAKE_OPTIONS.  Return 1 on error, 0 on success.
  1340. sub version_check ($$$$)
  1341. {
  1342.     my ($rmajor, $rminor, $ralpha, $rfork) = ($1, $2, $3, $4);
  1343.  
  1344.     &prog_error ("version is incorrect: $VERSION")
  1345.     if $VERSION !~ /(\d+)\.(\d+)([a-z]?)-?([A-Za-z0-9]+)?/;
  1346.  
  1347.     my ($tmajor, $tminor, $talpha, $tfork) = ($1, $2, $3, $4);
  1348.  
  1349.     $rfork ||= '';
  1350.     $tfork ||= '';
  1351.  
  1352.     my $rminorminor = 0;
  1353.     my $tminorminor = 0;
  1354.  
  1355.     # Some versions were labelled like `1.4-p3a'.  This is the same as
  1356.     # an alpha release labelled `1.4.3a'.  However, a version like
  1357.     # `1.4g' is the same as `1.4.99g'.  Yes, this sucks.  Moral:
  1358.     # always listen to the users.
  1359.     if ($rfork =~ /p([0-9]+)([a-z]?)/)
  1360.     {
  1361.     $rminorminor = $1;
  1362.     # `1.4a-p3b' never existed.  But we'll accept it anyway.
  1363.     $ralpha = $ralpha || $2 || '';
  1364.     $rfork = '';
  1365.     }
  1366.     if ($tfork =~ /p([0-9]+)([a-z]?)/)
  1367.     {
  1368.     $tminorminor = $1;
  1369.     # `1.4a-p3b' never existed.  But we'll accept it anyway.
  1370.     $talpha = $talpha || $2 || '';
  1371.     $tfork = '';
  1372.     }
  1373.  
  1374.     $rminorminor = 99 if $ralpha ne '' && $rminorminor == 0;
  1375.     $tminorminor = 99 if $talpha ne '' && $tminorminor == 0;
  1376.  
  1377.     # 2.0 is better than 1.0.
  1378.     # 1.2 is better than 1.1.
  1379.     # 1.2a is better than 1.2.
  1380.     # If we require 3.4n-foo then we require something
  1381.     # >= 3.4n, with the `foo' fork identifier.
  1382.     # The $r* variables are what the user specified.
  1383.     # The $t* variables denote automake itself.
  1384.     if ($rmajor > $tmajor
  1385.     || ($rmajor == $tmajor && $rminor > $tminor)
  1386.     || ($rminor == $tminor && $rminor == $tminor
  1387.         && $rminorminor > $tminorminor)
  1388.     || ($rminor == $tminor && $rminor == $tminor
  1389.         && $rminorminor == $tminorminor
  1390.         && $ralpha gt $talpha)
  1391.     || ($rfork ne '' && $rfork ne $tfork))
  1392.     {
  1393.     &am_line_error ('AUTOMAKE_OPTIONS',
  1394.             "require version $_, but have $VERSION");
  1395.     return 1;
  1396.     }
  1397.  
  1398.     return 0;
  1399. }
  1400.  
  1401. # Handle AUTOMAKE_OPTIONS variable.  Return 1 on error, 0 otherwise.
  1402. sub handle_options
  1403. {
  1404.     if (&variable_defined ('AUTOMAKE_OPTIONS'))
  1405.     {
  1406.     foreach (&variable_value_as_list ('AUTOMAKE_OPTIONS', ''))
  1407.     {
  1408.         $options{$_} = 1;
  1409.         if ($_ eq 'gnits' || $_ eq 'gnu' || $_ eq 'foreign')
  1410.         {
  1411.         &set_strictness ($_);
  1412.         }
  1413.         elsif ($_ eq 'cygnus')
  1414.         {
  1415.         $cygnus_mode = 1;
  1416.         }
  1417.         elsif (/ansi2knr/)
  1418.         {
  1419.         # An option like "../lib/ansi2knr" is allowed.  With
  1420.         # no path prefix, we assume the required programs are
  1421.         # in this directory.  We save the actual option for
  1422.         # later.
  1423.         $options{'ansi2knr'} = $_;
  1424.         }
  1425.         elsif ($_ eq 'no-installman' || $_ eq 'no-installinfo'
  1426.            || $_ eq 'dist-shar' || $_ eq 'dist-zip'
  1427.            || $_ eq 'dist-tarZ' || $_ eq 'dist-bzip2'
  1428.            || $_ eq 'dejagnu' || $_ eq 'no-texinfo.tex'
  1429.            || $_ eq 'readme-alpha' || $_ eq 'check-news'
  1430.            || $_ eq 'subdir-objects' || $_ eq 'nostdinc'
  1431.            || $_ eq 'no-exeext')
  1432.         {
  1433.         # Explicitly recognize these.
  1434.         }
  1435.         elsif ($_ eq 'no-dependencies')
  1436.         {
  1437.         $use_dependencies = 0;
  1438.         }
  1439.         elsif (/(\d+)\.(\d+)([a-z]?)(-[A-Za-z0-9]+)?/)
  1440.         {
  1441.         # Got a version number.
  1442.         if (version_check ($1, $2, $3, $4))
  1443.         {
  1444.             return 1;
  1445.         }
  1446.         }
  1447.         else
  1448.         {
  1449.         &am_line_error ('AUTOMAKE_OPTIONS',
  1450.                 "option `" . $_ . "\' not recognized");
  1451.         }
  1452.     }
  1453.     }
  1454.  
  1455.     if ($strictness == $GNITS)
  1456.     {
  1457.     $options{'readme-alpha'} = 1;
  1458.     $options{'check-news'} = 1;
  1459.     }
  1460.  
  1461.     return 0;
  1462. }
  1463.  
  1464.  
  1465. # get_object_extension ($OUT)
  1466. # ---------------------------
  1467. # Return object extension.  Just once, put some code into the output.
  1468. # OUT is the name of the output file
  1469. sub get_object_extension
  1470. {
  1471.     my ($out) = @_;
  1472.  
  1473.     # Maybe require libtool library object files.
  1474.     my $extension = '.$(OBJEXT)';
  1475.     $extension = '.lo' if ($out =~ /\.la$/);
  1476.  
  1477.     # Check for automatic de-ANSI-fication.
  1478.     $extension = '$U' . $extension
  1479.       if defined $options{'ansi2knr'};
  1480.  
  1481.     $get_object_extension_was_run = 1;
  1482.  
  1483.     return $extension;
  1484. }
  1485.  
  1486.  
  1487. # Call finish function for each language that was used.
  1488. sub handle_languages
  1489. {
  1490.     if ($use_dependencies)
  1491.     {
  1492.     # Include auto-dep code.  Don't include it if DEP_FILES would
  1493.     # be empty.
  1494.     if (&saw_sources_p (0) && keys %dep_files)
  1495.     {
  1496.         # Set location of depcomp.
  1497.         &define_variable ('depcomp', "\$(SHELL) $config_aux_dir/depcomp");
  1498.  
  1499.         &require_config_file ($FOREIGN, 'depcomp');
  1500.  
  1501.         my @deplist = sort keys %dep_files;
  1502.  
  1503.         # We define this as a conditional variable because BSD
  1504.         # make can't handle backslashes for continuing comments on
  1505.         # the following line.
  1506.         &define_pretty_variable ('DEP_FILES', 'AMDEP_TRUE', @deplist);
  1507.  
  1508.         # Generate each `include' individually.  Irix 6 make will
  1509.         # not properly include several files resulting from a
  1510.         # variable expansion; generating many separate includes
  1511.         # seems safest.
  1512.         $output_rules .= "\n";
  1513.         foreach my $iter (@deplist)
  1514.          {
  1515.         $output_rules .= (subst ('AMDEP_TRUE')
  1516.                   . subst ('am__include')
  1517.                   . ' '
  1518.                   . subst ('am__quote')
  1519.                   . $iter
  1520.                   . subst ('am__quote')
  1521.                   . "\n");
  1522.         }
  1523.  
  1524.         $output_rules .= &file_contents ('depend');
  1525.     }
  1526.     }
  1527.     else
  1528.     {
  1529.     &define_variable ('depcomp', '');
  1530.     }
  1531.  
  1532.     my %done;
  1533.  
  1534.     # Is the c linker needed?
  1535.     my $needs_c = 0;
  1536.     foreach my $ext (sort keys %extension_seen)
  1537.     {
  1538.     next unless $extension_map{$ext};
  1539.  
  1540.     my $lang = $languages{$extension_map{$ext}};
  1541.  
  1542.     my $rule_file = $lang->rule_file || 'depend2';
  1543.  
  1544.     # Get information on $LANG.
  1545.     my $pfx = $lang->autodep;
  1546.     my $fpfx = ($pfx eq '') ? 'CC' : $pfx;
  1547.  
  1548.     my $AMDEP = (($use_dependencies && $lang->autodep ne 'no')
  1549.              ? 'AMDEP' : 'FALSE');
  1550.  
  1551.     my %transform = ('EXT'     => $ext,
  1552.              'PFX'     => $pfx,
  1553.              'FPFX'    => $fpfx,
  1554.              'LIBTOOL' => $seen_libtool,
  1555.              'AMDEP'   => $AMDEP,
  1556.              '-c'      => $lang->compile_flag || '',
  1557.              'MORE-THAN-ONE'
  1558.                        => (count_files_for_language ($lang->name) > 1));
  1559.  
  1560.     # Generate the appropriate rules for this extension.
  1561.     if (($use_dependencies && $lang->autodep ne 'no')
  1562.         || defined $lang->compile)
  1563.     {
  1564.         # Some C compilers don't support -c -o.  Use it only if really
  1565.         # needed.
  1566.         my $output_flag = $lang->output_flag || '';
  1567.         $output_flag = '-o'
  1568.           if (! $output_flag
  1569.           && $lang->flags eq 'CFLAGS'
  1570.           && defined $options{'subdir-objects'});
  1571.  
  1572.         # FIXME: this is a temporary hack to compute a possible
  1573.         # derived extension.  This is not used by depend2.am.
  1574.         (my $der_ext = $ext) =~ tr/yl/cc/;
  1575.  
  1576.         # Another yacc/lex hack.
  1577.         my $destfile = '$*.' . $der_ext;
  1578.  
  1579.         $output_rules .=
  1580.           file_contents ($rule_file,
  1581.                  %transform,
  1582.                  'GENERIC'   => 1,
  1583.  
  1584.                  'DERIVED-EXT' => $der_ext,
  1585.  
  1586.                  'BASE'      => '$*',
  1587.                  'SOURCE'    => '$<',
  1588.                  'OBJ'       => '$@',
  1589.                  'OBJOBJ'    => '$@',
  1590.                  'LTOBJ'     => '$@',
  1591.  
  1592.                  'COMPILE'   => '$(' . $lang->compiler . ')',
  1593.                  'LTCOMPILE' => '$(LT' . $lang->compiler . ')',
  1594.                  '-o'        => $output_flag);
  1595.     }
  1596.  
  1597.     # Now include code for each specially handled object with this
  1598.     # language.
  1599.     my %seen_files = ();
  1600.     foreach my $file (@{$lang_specific_files{$lang->name}})
  1601.     {
  1602.         my ($derived, $source, $obj, $myext) = split (' ', $file);
  1603.  
  1604.         # We might see a given object twice, for instance if it is
  1605.         # used under different conditions.
  1606.         next if defined $seen_files{$obj};
  1607.         $seen_files{$obj} = 1;
  1608.  
  1609.         my $flags = $lang->flags || '';
  1610.         my $val = "${derived}_${flags}";
  1611.  
  1612.         &prog_error ("found $lang->name in handle_languages, but compiler not defined")
  1613.         unless defined $lang->compile;
  1614.  
  1615.         (my $obj_compile = $lang->compile) =~ s/\(AM_$flags/\($val/;
  1616.         my $obj_ltcompile = '$(LIBTOOL) --mode=compile ' . $obj_compile;
  1617.  
  1618.         # We _need_ `-o' for per object rules.
  1619.         my $output_flag = $lang->output_flag || '-o';
  1620.  
  1621.         # Generate a transform which will turn suffix targets in
  1622.         # depend2.am into real targets for the particular objects we
  1623.         # are building.
  1624.         $output_rules .=
  1625.           file_contents ($rule_file,
  1626.                  (%transform,
  1627.                   'GENERIC'   => 0,
  1628.  
  1629.                   'BASE'      => $obj,
  1630.                   'SOURCE'    => $source,
  1631.                   # Use $myext and not `.o' here, in case
  1632.                   # we are actually building a new source
  1633.                   # file -- e.g. via yacc.
  1634.                   'OBJ'       => "$obj$myext",
  1635.                   'OBJOBJ'    => "$obj.obj",
  1636.                   'LTOBJ'     => "$obj.lo",
  1637.  
  1638.                   'COMPILE'   => $obj_compile,
  1639.                   'LTCOMPILE' => $obj_ltcompile,
  1640.                   '-o'        => $output_flag));
  1641.     }
  1642.  
  1643.     # The rest of the loop is done once per language.
  1644.     next if defined $done{$lang};
  1645.     $done{$lang} = 1;
  1646.  
  1647.     # Load the language dependent Makefile chunks.
  1648.     my %lang = map { uc ($_) => 0 } keys %languages;
  1649.     $lang{uc ($lang->name)} = 1;
  1650.     $output_rules .= file_contents ('lang-compile', %transform, %lang);
  1651.  
  1652.     # If the source to a program consists entirely of code from a
  1653.     # `pure' language, for instance C++ for Fortran 77, then we
  1654.     # don't need the C compiler code.  However if we run into
  1655.     # something unusual then we do generate the C code.  There are
  1656.     # probably corner cases here that do not work properly.
  1657.     # People linking Java code to Fortran code deserve pain.
  1658.     $needs_c ||= ! $lang->pure;
  1659.  
  1660.     define_compiler_variable ($lang)
  1661.       if ($lang->compile);
  1662.  
  1663.     define_linker_variable ($lang)
  1664.       if ($lang->link);
  1665.  
  1666.     foreach my $var (@{$lang->config_vars})
  1667.       {
  1668.         am_error ($lang->Name
  1669.               . " source seen but `$var' not defined in"
  1670.               . " `$configure_ac'")
  1671.           if !exists $configure_vars{$var};
  1672.       }
  1673.  
  1674.     # The compiler's flag must be a configure variable.
  1675.     define_configure_variable ($lang->flags)
  1676.         if defined $lang->flags && $lang->define_flag;
  1677.  
  1678.     # Call the finisher.
  1679.     $lang->finish;
  1680.     }
  1681.  
  1682.     # If the project is entirely C++ or entirely Fortran 77 (i.e., 1
  1683.     # suffix rule was learned), don't bother with the C stuff.  But if
  1684.     # anything else creeps in, then use it.
  1685.     $needs_c = 1
  1686.       if $need_link || scalar keys %suffix_rules > 1;
  1687.  
  1688.     if ($needs_c)
  1689.       {
  1690.     if (! defined $done{$languages{'c'}})
  1691.       {
  1692.         &define_configure_variable ($languages{'c'}->flags);
  1693.         &define_compiler_variable ($languages{'c'});
  1694.       }
  1695.     define_linker_variable ($languages{'c'});
  1696.       }
  1697. }
  1698.  
  1699. # Check to make sure a source defined in LIBOBJS is not explicitly
  1700. # mentioned.  This is a separate function (as opposed to being inlined
  1701. # in handle_source_transform) because it isn't always appropriate to
  1702. # do this check.
  1703. sub check_libobjs_sources
  1704. {
  1705.     my ($one_file, $unxformed) = @_;
  1706.  
  1707.     foreach my $prefix ('', 'EXTRA_', 'dist_', 'nodist_',
  1708.             'dist_EXTRA_', 'nodist_EXTRA_')
  1709.     {
  1710.         my @files;
  1711.     if (&variable_defined ($prefix . $one_file . '_SOURCES'))
  1712.     {
  1713.         @files = &variable_value_as_list (($prefix
  1714.                            . $one_file . '_SOURCES'),
  1715.                           'all');
  1716.     }
  1717.     elsif ($prefix eq '')
  1718.     {
  1719.         @files = ($unxformed . '.c');
  1720.     }
  1721.     else
  1722.     {
  1723.         next;
  1724.     }
  1725.  
  1726.     foreach my $file (@files)
  1727.     {
  1728.         if (defined $libsources{$file})
  1729.         {
  1730.         &am_line_error ($prefix . $one_file . '_SOURCES',
  1731.                 "automatically discovered file `$file' should not be explicitly mentioned");
  1732.         }
  1733.     }
  1734.     }
  1735. }
  1736.  
  1737.  
  1738. # @OBJECTS
  1739. # handle_single_transform_list ($VAR, $DERIVED, $OBJ, @FILES)
  1740. # -----------------------------------------------------------
  1741. # Does much of the actual work for handle_source_transform.
  1742. # Arguments are:
  1743. #   $DERIVED is the name of resulting executable or library
  1744. #   $OBJ is the object extension (e.g., `$U.lo')
  1745. #   @FILES is the list of source files to transform
  1746. # Result is a list of the names of objects
  1747. # %linkers_used will be updated with any linkers needed
  1748. sub handle_single_transform_list ($$$@)
  1749. {
  1750.     my ($var, $derived, $obj, @files) = @_;
  1751.     my @result = ();
  1752.     my $nonansi_obj = $obj;
  1753.     $nonansi_obj =~ s/\$U//g;
  1754.  
  1755.     # Turn sources into objects.  We use a while loop like this
  1756.     # because we might add to @files in the loop.
  1757.     while (scalar @files > 0)
  1758.     {
  1759.     $_ = shift @files;
  1760.  
  1761.         # Configure substitutions in _SOURCES variables are errors.
  1762.         if (/^\@.*\@$/)
  1763.         {
  1764.             &am_line_error ($var, "$var includes configure substitution `$_'");
  1765.             next;
  1766.         }
  1767.  
  1768.         # If the source file is in a subdirectory then the `.o' is put
  1769.         # into the current directory, unless the subdir-objects option
  1770.         # is in effect.
  1771.  
  1772.         # Split file name into base and extension.
  1773.         next if ! /^(?:(.*)\/)?([^\/]*)\.(.*)$/;
  1774.         my $full = $_;
  1775.         my $directory = $1 || '';
  1776.         my $base = $2;
  1777.         my $extension = $3;
  1778.  
  1779.         # We must generate a rule for the object if it requires its own flags.
  1780.         my $renamed = 0;
  1781.         my ($linker, $object);
  1782.  
  1783.     # This records whether we've seen a derived source file (eg,
  1784.     # yacc output).
  1785.     my $derived_source = 0;
  1786.  
  1787.     # This holds the `aggregate context' of the file we are
  1788.     # currently examining.  If the file is compiled with
  1789.     # per-object flags, then it will be the name of the object.
  1790.     # Otherwise it will be `AM'.  This is used by the target hook
  1791.     # language function.
  1792.     my $aggregate = 'AM';
  1793.  
  1794.         $extension = &derive_suffix ($extension);
  1795.         my $lang;
  1796.         if ($extension_map{$extension} &&
  1797.             ($lang = $languages{$extension_map{$extension}}))
  1798.     {
  1799.             # Found the language, so see what it says.
  1800.             &saw_extension ($extension);
  1801.  
  1802.             # Note: computed subr call.  The language rewrite function
  1803.             # should return one of the $LANG_* constants.  It could
  1804.             # also return a list whose first value is such a constant
  1805.             # and whose second value is a new source extension which
  1806.             # should be applied.  This means this particular language
  1807.             # generates another source file which we must then process
  1808.             # further.
  1809.             my $subr = 'lang_' . $lang->name . '_rewrite';
  1810.             my ($r, $source_extension)
  1811.         = & $subr ($directory, $base, $extension);
  1812.             # Skip this entry if we were asked not to process it.
  1813.             next if $r == $LANG_IGNORE;
  1814.  
  1815.             # Now extract linker and other info.
  1816.             $linker = $lang->linker;
  1817.  
  1818.             my $this_obj_ext;
  1819.         if (defined $source_extension)
  1820.         {
  1821.         $this_obj_ext = '.' . $source_extension;
  1822.         $derived_source = 1;
  1823.         }
  1824.         elsif ($lang->ansi)
  1825.         {
  1826.         $this_obj_ext = $obj;
  1827.         }
  1828.         else
  1829.         {
  1830.         $this_obj_ext = $nonansi_obj;
  1831.         }
  1832.         $object = $base . $this_obj_ext;
  1833.  
  1834.             if (defined $lang->flags
  1835.                 && &variable_defined ($derived . '_' . $lang->flags))
  1836.             {
  1837.                 # We have a per-executable flag in effect for this
  1838.                 # object.  In this case we rewrite the object's
  1839.                 # name to ensure it is unique.  We also require
  1840.                 # the `compile' program to deal with compilers
  1841.                 # where `-c -o' does not work.
  1842.  
  1843.                 # We choose the name `DERIVED_OBJECT' to ensure
  1844.                 # (1) uniqueness, and (2) continuity between
  1845.                 # invocations.  However, this will result in a
  1846.                 # name that is too long for losing systems, in
  1847.                 # some situations.  So we provide _SHORTNAME to
  1848.                 # override.
  1849.  
  1850.                 my $dname = $derived;
  1851.                 if (&variable_defined ($derived . '_SHORTNAME'))
  1852.                 {
  1853.                     # FIXME: should use the same conditional as
  1854.                     # the _SOURCES variable.  But this is really
  1855.                     # silly overkill -- nobody should have
  1856.                     # conditional shortnames.
  1857.                     $dname = &variable_value ($derived . '_SHORTNAME');
  1858.                 }
  1859.                 $object = $dname . '-' . $object;
  1860.  
  1861.                 &require_config_file ($FOREIGN, 'compile')
  1862.                     if $lang->name eq 'c';
  1863.  
  1864.                 &prog_error ("$lang->name flags defined without compiler")
  1865.               if ! defined $lang->compile;
  1866.  
  1867.                 $renamed = 1;
  1868.             }
  1869.  
  1870.             # If rewrite said it was ok, put the object into a
  1871.             # subdir.
  1872.             if ($r == $LANG_SUBDIR && $directory ne '')
  1873.             {
  1874.                 $object = $directory . '/' . $object;
  1875.             }
  1876.  
  1877.             # If doing dependency tracking, then we can't print
  1878.             # the rule.  If we have a subdir object, we need to
  1879.             # generate an explicit rule.  Actually, in any case
  1880.             # where the object is not in `.' we need a special
  1881.             # rule.  The per-object rules in this case are
  1882.             # generated later, by handle_languages.
  1883.             if ($renamed || $directory ne '')
  1884.             {
  1885.                 my $obj_sans_ext = substr ($object, 0,
  1886.                        - length ($this_obj_ext));
  1887.         my $val = ("$full $obj_sans_ext "
  1888.                # Only use $this_obj_ext in the derived
  1889.                # source case because in the other case we
  1890.                # *don't* want $(OBJEXT) to appear here.
  1891.                . ($derived_source ? $this_obj_ext : '.o'));
  1892.  
  1893.         # If we renamed the object then we want to use the
  1894.         # per-executable flag name.  But if this is simply a
  1895.         # subdir build then we still want to use the AM_ flag
  1896.         # name.
  1897.         if ($renamed)
  1898.         {
  1899.             $val = "$derived $val";
  1900.             $aggregate = $derived;
  1901.         }
  1902.         else
  1903.         {
  1904.             $val = "AM $val";
  1905.         }
  1906.  
  1907.         # Each item on this list is a string consisting of
  1908.         # four space-separated values: the derived flag prefix
  1909.         # (eg, for `foo_CFLAGS', it is `foo'), the name of the
  1910.         # source file, the base name of the output file, and
  1911.         # the extension for the object file.
  1912.                 push (@{$lang_specific_files{$lang->name}}, $val);
  1913.             }
  1914.         }
  1915.         elsif ($extension eq 'o')
  1916.         {
  1917.             # This is probably the result of a direct suffix rule.
  1918.             # In this case we just accept the rewrite.  FIXME:
  1919.             # this fails if we want libtool objects.
  1920.             $object = $base . '.' . $extension;
  1921.             $linker = '';
  1922.         }
  1923.         else
  1924.         {
  1925.             # No error message here.  Used to have one, but it was
  1926.             # very unpopular.
  1927.         # FIXME: we could potentially do more processing here,
  1928.         # perhaps treating the new extension as though it were a
  1929.         # new source extension (as above).  This would require
  1930.         # more restructuring than is appropriate right now.
  1931.             next;
  1932.         }
  1933.  
  1934.         if (defined $object_map{$object})
  1935.         {
  1936.             if ($object_map{$object} ne $full)
  1937.             {
  1938.                 &am_error ("object `$object' created by `$full' and `$object_map{$object}'");
  1939.             }
  1940.         }
  1941.  
  1942.     # Let the language do some special magic if required.
  1943.     if (defined $lang) {
  1944.         $lang->target_hook ($aggregate, $object, $full);
  1945.     }
  1946.  
  1947.     if ($derived_source)
  1948.     {
  1949.         &prog_error ("$lang->name has automatic dependency tracking")
  1950.         if $lang->autodep ne 'no';
  1951.         # Make sure this new source file is handled next.  That will
  1952.         # make it appear to be at the right place in the list.
  1953.         unshift (@files, $object);
  1954.         # FIXME: nodist.
  1955.         &push_dist_common ($object);
  1956.         next;
  1957.     }
  1958.  
  1959.         $linkers_used{$linker} = 1;
  1960.  
  1961.         push (@result, $object);
  1962.  
  1963.         if (! defined $object_map{$object})
  1964.         {
  1965.             my @dep_list = ();
  1966.             $object_map{$object} = $full;
  1967.  
  1968.             # If file is in subdirectory, we need explicit
  1969.             # dependency.
  1970.             if ($directory ne '' || $renamed)
  1971.             {
  1972.                 push (@dep_list, $full);
  1973.             }
  1974.  
  1975.             # If resulting object is in subdir, we need to make
  1976.             # sure the subdir exists at build time.
  1977.             if ($object =~ /\//)
  1978.             {
  1979.                 # FIXME: check that $DIRECTORY is somewhere in the
  1980.                 # project
  1981.  
  1982.                 # We don't allow `..' in object file names for
  1983.                 # *any* source, not just Java.  For Java it just
  1984.                 # doesn't make sense, but in general it is
  1985.                 # a problem because we can't pick a good name for
  1986.                 # the .deps entry.
  1987.                 if ($object =~ /(\/|^)\.\.\//)
  1988.                 {
  1989.                     &am_error ("`$full' contains `..' component but should not");
  1990.                 }
  1991.  
  1992.         # Make sure object is removed by `make mostlyclean'.
  1993.         $compile_clean_files{$object} = $MOSTLY_CLEAN;
  1994.  
  1995.                 push (@dep_list, &require_build_directory ($directory));
  1996.  
  1997.                 # If we're generating dependencies, we also want
  1998.                 # to make sure that the appropriate subdir of the
  1999.                 # .deps directory is created.
  2000.         push (@dep_list, &require_build_directory ('$(DEPDIR)/' . $directory))
  2001.             if ($use_dependencies);
  2002.             }
  2003.  
  2004.             &pretty_print_rule ($object . ':', "\t", @dep_list)
  2005.                 if scalar @dep_list > 0;
  2006.         }
  2007.  
  2008.         # Transform .o or $o file into .P file (for automatic
  2009.         # dependency code).
  2010.         if ($lang && $lang->autodep ne 'no')
  2011.         {
  2012.             my $depfile = $object;
  2013.             $depfile =~ s/\.([^.]*)$/.P$1/;
  2014.             $depfile =~ s/\$\(OBJEXT\)$/o/;
  2015.             $dep_files{'$(DEPDIR)/' . $depfile} = 1;
  2016.         }
  2017.     }
  2018.  
  2019.     return @result;
  2020. }
  2021.  
  2022.  
  2023.  
  2024. # Handle SOURCE->OBJECT transform for one program or library.
  2025. # Arguments are:
  2026. #   canonical (transformed) name of object to build
  2027. #   actual name of object to build
  2028. #   object extension (ie either `.o' or `$o'.
  2029. # Return result is name of linker variable that must be used.
  2030. # Empty return means just use `LINK'.
  2031. sub handle_source_transform
  2032. {
  2033.     # one_file is canonical name.  unxformed is given name.  obj is
  2034.     # object extension.
  2035.     my ($one_file, $unxformed, $obj) = @_;
  2036.  
  2037.     my ($linker) = '';
  2038.  
  2039.     if (&variable_defined ($one_file . "_OBJECTS"))
  2040.     {
  2041.     &am_line_error ($one_file . '_OBJECTS',
  2042.             $one_file . '_OBJECTS', 'should not be defined');
  2043.     # No point in continuing.
  2044.     return;
  2045.     }
  2046.  
  2047.     my %used_pfx = ();
  2048.     my $needlinker;
  2049.     %linkers_used = ();
  2050.     foreach my $prefix ('', 'EXTRA_', 'dist_', 'nodist_',
  2051.             'dist_EXTRA_', 'nodist_EXTRA_')
  2052.     {
  2053.     my $var = $prefix . $one_file . "_SOURCES";
  2054.     next
  2055.       if !variable_defined ($var);
  2056.  
  2057.     # We are going to define _OBJECTS variables using the prefix.
  2058.     # Then we glom them all together.  So we can't use the null
  2059.     # prefix here as we need it later.
  2060.     my $xpfx = ($prefix eq '') ? 'am_' : $prefix;
  2061.  
  2062.     # Keep track of which prefixes we saw.
  2063.     $used_pfx{$xpfx} = 1
  2064.       unless $prefix =~ /EXTRA_/;
  2065.  
  2066.     push (@sources, '$(' . $prefix . $one_file . "_SOURCES)");
  2067.     push (@dist_sources, '$(' . $prefix . $one_file . "_SOURCES)")
  2068.       unless $prefix =~ /^nodist_/;
  2069.     foreach my $cond (variable_conditions ($var))
  2070.       {
  2071.         my @files = &variable_value_as_list ($var, $cond);
  2072.         my (@result) =
  2073.           &handle_single_transform_list ($var, $one_file, $obj,
  2074.                          @files);
  2075.         # If there are no files to compile, don't require a linker (yet).
  2076.         $needlinker ||= "true" if @result;
  2077.  
  2078.         # Define _OBJECTS conditionally.
  2079.         &define_pretty_variable ($xpfx . $one_file . '_OBJECTS',
  2080.                      $cond, @result)
  2081.           unless $prefix =~ /EXTRA_/;
  2082.       }
  2083.     }
  2084.     if ($needlinker)
  2085.     {
  2086.     $linker ||= &resolve_linker (%linkers_used);
  2087.     }
  2088.  
  2089.     my @keys = sort keys %used_pfx;
  2090.     if (scalar @keys == 0)
  2091.     {
  2092.     &define_variable ($one_file . "_SOURCES", $unxformed . ".c");
  2093.     push (@sources, $unxformed . '.c');
  2094.     push (@dist_sources, $unxformed . '.c');
  2095.  
  2096.     %linkers_used = ();
  2097.     my (@result) =
  2098.       &handle_single_transform_list ($one_file . '_SOURCES',
  2099.                      $one_file, $obj,
  2100.                      "$unxformed.c");
  2101.     $linker ||= &resolve_linker (%linkers_used);
  2102.     &define_pretty_variable ($one_file . "_OBJECTS", '', @result)
  2103.     }
  2104.     else
  2105.     {
  2106.     grep ($_ = '$(' . $_ . $one_file . '_OBJECTS)', @keys);
  2107.     &define_pretty_variable ($one_file . '_OBJECTS', '', @keys);
  2108.     }
  2109.  
  2110.     # If we want to use `LINK' we must make sure it is defined.
  2111.     if ($linker eq '')
  2112.     {
  2113.     $need_link = 1;
  2114.     }
  2115.  
  2116.     return $linker;
  2117. }
  2118.  
  2119.  
  2120. # handle_lib_objects ($XNAME, $VAR)
  2121. # ---------------------------------
  2122. # Special-case @ALLOCA@ and @LIBOBJS@ in _LDADD or _LIBADD variables.
  2123. # Also, generate _DEPENDENCIES variable if appropriate.
  2124. # Arguments are:
  2125. #   transformed name of object being built, or empty string if no object
  2126. #   name of _LDADD/_LIBADD-type variable to examine
  2127. # Returns 1 if LIBOBJS seen, 0 otherwise.
  2128. sub handle_lib_objects
  2129. {
  2130.     my ($xname, $var) = @_;
  2131.  
  2132.     &prog_error ("handle_lib_objects: $var undefined")
  2133.     if ! &variable_defined ($var);
  2134.  
  2135.     my $ret = 0;
  2136.     foreach my $cond (&variable_conditions ($var))
  2137.       {
  2138.     if (&handle_lib_objects_cond ($xname, $var, $cond))
  2139.       {
  2140.         $ret = 1;
  2141.       }
  2142.       }
  2143.     return $ret;
  2144. }
  2145.  
  2146. # Subroutine of handle_lib_objects: handle a particular condition.
  2147. sub handle_lib_objects_cond
  2148. {
  2149.     my ($xname, $var, $cond) = @_;
  2150.  
  2151.     # We recognize certain things that are commonly put in LIBADD or
  2152.     # LDADD.
  2153.     my @dep_list = ();
  2154.  
  2155.     my $seen_libobjs = 0;
  2156.     my $flagvar = 0;
  2157.  
  2158.     foreach my $lsearch (&variable_value_as_list ($var, $cond))
  2159.     {
  2160.     # Skip -lfoo and -Ldir; these are explicitly allowed.
  2161.     next if $lsearch =~ /^-[lL]/;
  2162.     if (! $flagvar && $lsearch =~ /^-/)
  2163.     {
  2164.         if ($var =~ /^(.*)LDADD$/)
  2165.         {
  2166.         # Skip -dlopen and -dlpreopen; these are explicitly allowed.
  2167.         next if $lsearch =~ /^-dl(pre)?open$/;
  2168.         &am_line_error ($var, "linker flags such as `$lsearch' belong in `${1}LDFLAGS");
  2169.         }
  2170.         else
  2171.         {
  2172.         # Only get this error once.
  2173.         $flagvar = 1;
  2174.         &am_line_error ($var, "linker flags such as `$lsearch' belong in `${1}LDFLAGS");
  2175.         }
  2176.     }
  2177.  
  2178.     # Assume we have a file of some sort, and push it onto the
  2179.     # dependency list.  Autoconf substitutions are not pushed;
  2180.     # rarely is a new dependency substituted into (eg) foo_LDADD
  2181.     # -- but "bad things (eg -lX11) are routinely substituted.
  2182.     # Note that LIBOBJS and ALLOCA are exceptions to this rule,
  2183.     # and handled specially below.
  2184.     push (@dep_list, $lsearch)
  2185.         unless $lsearch =~ /^\@.*\@$/;
  2186.  
  2187.     # Automatically handle @LIBOBJS@ and @ALLOCA@.  Basically this
  2188.     # means adding entries to dep_files.
  2189.     if ($lsearch =~ /^\@(LT)?LIBOBJS\@$/)
  2190.     {
  2191.         my $lt = $1 ? $1 : '';
  2192.         my $myobjext = ($1 ? 'l' : '') . 'o';
  2193.  
  2194.         push (@dep_list, $lsearch);
  2195.         $seen_libobjs = 1;
  2196.         if (! keys %libsources
  2197.         && ! &variable_defined ($lt . 'LIBOBJS'))
  2198.         {
  2199.         &am_line_error ($var, "\@$lt" . "LIBOBJS\@ seen but never set in `$configure_ac'");
  2200.         }
  2201.  
  2202.         foreach my $iter (keys %libsources)
  2203.         {
  2204.         if ($iter =~ /\.([cly])$/)
  2205.         {
  2206.             &saw_extension ($1);
  2207.             &saw_extension ('c');
  2208.         }
  2209.  
  2210.         if ($iter =~ /\.h$/)
  2211.         {
  2212.             &require_file_with_line ($var, $FOREIGN, $iter);
  2213.         }
  2214.         elsif ($iter ne 'alloca.c')
  2215.         {
  2216.             my $rewrite = $iter;
  2217.             $rewrite =~ s/\.c$/.P$myobjext/;
  2218.             $dep_files{'$(DEPDIR)/' . $rewrite} = 1;
  2219.             ($rewrite = $iter) =~ s/(\W)/\\$1/g;
  2220.             $rewrite = "^" . $rewrite . "\$";
  2221.             # Only require the file if it is not a built source.
  2222.             if (! &variable_defined ('BUILT_SOURCES')
  2223.             || ! grep (/$rewrite/,
  2224.                    &variable_value_as_list ('BUILT_SOURCES',
  2225.                                 'all')))
  2226.             {
  2227.             &require_file_with_line ($var, $FOREIGN, $iter);
  2228.             }
  2229.         }
  2230.         }
  2231.     }
  2232.     elsif ($lsearch =~ /^\@(LT)?ALLOCA\@$/)
  2233.     {
  2234.         my $lt = $1 ? $1 : '';
  2235.         my $myobjext = ($1 ? 'l' : '') . 'o';
  2236.  
  2237.         push (@dep_list, $lsearch);
  2238.         &am_line_error ($var,
  2239.                 "\@$lt" . "ALLOCA\@ seen but `AC_FUNC_ALLOCA' not in `$configure_ac'")
  2240.         if ! defined $libsources{'alloca.c'};
  2241.         $dep_files{'$(DEPDIR)/alloca.P' . $myobjext} = 1;
  2242.         &require_file_with_line ($var, $FOREIGN, 'alloca.c');
  2243.         &saw_extension ('c');
  2244.     }
  2245.     }
  2246.  
  2247.     if ($xname ne '' && ! &variable_defined ($xname . '_DEPENDENCIES', $cond))
  2248.     {
  2249.     &define_pretty_variable ($xname . '_DEPENDENCIES', $cond, @dep_list);
  2250.     }
  2251.  
  2252.     return $seen_libobjs;
  2253. }
  2254.  
  2255. # Canonicalize the input parameter
  2256. sub canonicalize
  2257. {
  2258.     my ($string) = @_;
  2259.     $string =~ tr/A-Za-z0-9_\@/_/c;
  2260.     return $string;
  2261. }
  2262.  
  2263. # Canonicalize a name, and check to make sure the non-canonical name
  2264. # is never used.  Returns canonical name.  Arguments are name and a
  2265. # list of suffixes to check for.
  2266. sub check_canonical_spelling
  2267. {
  2268.     my ($name, @suffixes) = @_;
  2269.  
  2270.     my $xname = &canonicalize ($name);
  2271.     if ($xname ne $name)
  2272.     {
  2273.     foreach my $xt (@suffixes)
  2274.     {
  2275.         &am_line_error ("$name$xt",
  2276.                 "invalid variable `$name$xt'; "
  2277.                 . "should be `$xname$xt'")
  2278.         if &variable_defined ("$name$xt");
  2279.     }
  2280.     }
  2281.  
  2282.     return $xname;
  2283. }
  2284.  
  2285.  
  2286. # handle_compile ()
  2287. # -----------------
  2288. # Set up the compile suite.
  2289. sub handle_compile ()
  2290. {
  2291.     return
  2292.       unless $get_object_extension_was_run;
  2293.  
  2294.     # Boilerplate.
  2295.     my $default_includes = '';
  2296.     if (! defined $options{'nostdinc'})
  2297.       {
  2298.     $default_includes = ' -I. -I$(srcdir)';
  2299.  
  2300.     if (&variable_defined ('CONFIG_HEADER'))
  2301.       {
  2302.         foreach my $hdr (split (' ', &variable_value ('CONFIG_HEADER')))
  2303.           {
  2304.         $default_includes .= ' -I' . dirname ($hdr);
  2305.           }
  2306.       }
  2307.       }
  2308.  
  2309.     my (@mostly_rms, @dist_rms);
  2310.     foreach my $item (sort keys %compile_clean_files)
  2311.     {
  2312.     if ($compile_clean_files{$item} == $MOSTLY_CLEAN)
  2313.     {
  2314.         push (@mostly_rms, "\t-rm -f $item");
  2315.     }
  2316.     elsif ($compile_clean_files{$item} == $DIST_CLEAN)
  2317.     {
  2318.         push (@dist_rms, "\t-rm -f $item");
  2319.     }
  2320.     else
  2321.     {
  2322.         &prog_error ("invalid entry in \%compile_clean_files");
  2323.     }
  2324.     }
  2325.  
  2326.     my ($coms, $vars, $rules) =
  2327.       &file_contents_internal (1, "$libdir/am/compile.am",
  2328.                    ('DEFAULT_INCLUDES' => $default_includes,
  2329.                 'MOSTLYRMS' => join ("\n", @mostly_rms),
  2330.                 'DISTRMS' => join ("\n", @dist_rms)));
  2331.     $output_vars .= $vars;
  2332.     $output_rules .= "$coms$rules";
  2333.  
  2334.     # Check for automatic de-ANSI-fication.
  2335.     if (defined $options{'ansi2knr'})
  2336.       {
  2337.     if (! $am_c_prototypes)
  2338.       {
  2339.         &am_line_error ('AUTOMAKE_OPTIONS',
  2340.                 "option `ansi2knr' in use but `AM_C_PROTOTYPES' not in `$configure_ac'");
  2341.         &keyed_aclocal_warning ('AM_C_PROTOTYPES');
  2342.         # Only give this error once.
  2343.         $am_c_prototypes = 1;
  2344.       }
  2345.  
  2346.     # topdir is where ansi2knr should be.
  2347.     if ($options{'ansi2knr'} eq 'ansi2knr')
  2348.       {
  2349.         # Only require ansi2knr files if they should appear in
  2350.         # this directory.
  2351.         &require_file_with_line ('AUTOMAKE_OPTIONS', $FOREIGN,
  2352.                      'ansi2knr.c', 'ansi2knr.1');
  2353.  
  2354.         # ansi2knr needs to be built before subdirs, so unshift it.
  2355.         unshift (@all, '$(ANSI2KNR)');
  2356.       }
  2357.  
  2358.     my $ansi2knr_dir = '';
  2359.     $ansi2knr_dir = dirname ($options{'ansi2knr'})
  2360.       if $options{'ansi2knr'} ne 'ansi2knr';
  2361.  
  2362.     $output_rules .= &file_contents ('ansi2knr',
  2363.                      ('ANSI2KNR-DIR' => $ansi2knr_dir));
  2364.  
  2365.     }
  2366. }
  2367.  
  2368. # handle_libtool ()
  2369. # -----------------
  2370. # Handle libtool rules.
  2371. sub handle_libtool
  2372. {
  2373.     return unless $seen_libtool;
  2374.  
  2375.     # libtool requires some files, but only at top level.
  2376.     &require_conf_file_with_conf_line ($libtool_line, $FOREIGN,
  2377.                        @libtoolize_files)
  2378.     if $relative_dir eq '.';
  2379.  
  2380.     # Output the libtool compilation rules.
  2381.     $output_rules .= &file_contents ('libtool');
  2382. }
  2383.  
  2384. # handle_programs ()
  2385. # ------------------
  2386. # Handle C programs.
  2387. sub handle_programs
  2388. {
  2389.     my @proglist = &am_install_var ('progs', 'PROGRAMS',
  2390.                     'bin', 'sbin', 'libexec', 'pkglib',
  2391.                     'noinst', 'check');
  2392.     return if ! @proglist;
  2393.  
  2394.     my $seen_libobjs = 0;
  2395.     foreach my $one_file (@proglist)
  2396.     {
  2397.     my $obj = &get_object_extension ($one_file);
  2398.  
  2399.     # Canonicalize names and check for misspellings.
  2400.     my $xname = &check_canonical_spelling ($one_file, '_LDADD', '_LDFLAGS',
  2401.                            '_SOURCES', '_OBJECTS',
  2402.                            '_DEPENDENCIES');
  2403.  
  2404.     my $linker = &handle_source_transform ($xname, $one_file, $obj);
  2405.  
  2406.     my $xt = '';
  2407.     if (&variable_defined ($xname . "_LDADD"))
  2408.     {
  2409.         if (&handle_lib_objects ($xname, $xname . '_LDADD'))
  2410.         {
  2411.         $seen_libobjs = 1;
  2412.         }
  2413.         $xt = '_LDADD';
  2414.     }
  2415.     else
  2416.     {
  2417.         # User didn't define prog_LDADD override.  So do it.
  2418.         &define_variable ($xname . '_LDADD', '$(LDADD)');
  2419.  
  2420.         # This does a bit too much work.  But we need it to
  2421.         # generate _DEPENDENCIES when appropriate.
  2422.         if (&variable_defined ('LDADD'))
  2423.         {
  2424.         if (&handle_lib_objects ($xname, 'LDADD'))
  2425.         {
  2426.             $seen_libobjs = 1;
  2427.         }
  2428.         }
  2429.         elsif (! &variable_defined ($xname . '_DEPENDENCIES'))
  2430.         {
  2431.         &define_variable ($xname . '_DEPENDENCIES', '');
  2432.         }
  2433.         $xt = '_SOURCES'
  2434.     }
  2435.  
  2436.     if (&variable_defined ($xname . '_LIBADD'))
  2437.     {
  2438.         &am_line_error ($xname . '_LIBADD',
  2439.                 "use `" . $xname . "_LDADD', not `"
  2440.                 . $xname . "_LIBADD'");
  2441.     }
  2442.  
  2443.     if (! &variable_defined ($xname . '_LDFLAGS'))
  2444.     {
  2445.         # Define the prog_LDFLAGS variable.
  2446.         &define_variable ($xname . '_LDFLAGS', '');
  2447.     }
  2448.  
  2449.     # Determine program to use for link.
  2450.     my $xlink;
  2451.     if (&variable_defined ($xname . '_LINK'))
  2452.     {
  2453.         $xlink = $xname . '_LINK';
  2454.     }
  2455.     else
  2456.     {
  2457.         $xlink = $linker ? $linker : 'LINK';
  2458.     }
  2459.  
  2460.     # If the resulting program lies into a subdirectory,
  2461.     # make sure this directory will exist.
  2462.     my $dirstamp = &require_build_directory_maybe ($one_file);
  2463.  
  2464.     # Don't add $(EXEEXT) if user already did.
  2465.     my $extension = ($one_file !~ /\$\(EXEEXT\)$/
  2466.              ? "\$(EXEEXT)"
  2467.              : '');
  2468.  
  2469.     $output_rules .= &file_contents ('program',
  2470.                      ('PROGRAM'  => $one_file,
  2471.                       'XPROGRAM' => $xname,
  2472.                       'XLINK'    => $xlink,
  2473.                       'DIRSTAMP' => $dirstamp,
  2474.                       'EXEEXT'   => $extension));
  2475.     }
  2476.  
  2477.     if (&variable_defined ('LDADD') && &handle_lib_objects ('', 'LDADD'))
  2478.     {
  2479.     $seen_libobjs = 1;
  2480.     }
  2481.  
  2482.     if ($seen_libobjs)
  2483.     {
  2484.     foreach my $one_file (@proglist)
  2485.     {
  2486.         my $xname = &canonicalize ($one_file);
  2487.  
  2488.         if (&variable_defined ($xname . '_LDADD'))
  2489.         {
  2490.         &check_libobjs_sources ($xname, $xname . '_LDADD');
  2491.         }
  2492.         elsif (&variable_defined ('LDADD'))
  2493.         {
  2494.         &check_libobjs_sources ($xname, 'LDADD');
  2495.         }
  2496.     }
  2497.     }
  2498. }
  2499.  
  2500.  
  2501. # handle_libraries ()
  2502. # -------------------
  2503. # Handle libraries.
  2504. sub handle_libraries
  2505. {
  2506.     my @liblist = &am_install_var ('libs', 'LIBRARIES',
  2507.                    'lib', 'pkglib', 'noinst', 'check');
  2508.     return if ! @liblist;
  2509.  
  2510.     my %valid = &am_primary_prefixes ('LIBRARIES', 0, 'lib', 'pkglib',
  2511.                       'noinst', 'check');
  2512.     if (! defined $configure_vars{'RANLIB'})
  2513.     {
  2514.     foreach my $key (keys %valid)
  2515.     {
  2516.         if (&variable_defined ($key . '_LIBRARIES'))
  2517.         {
  2518.         &am_line_error ($key . '_LIBRARIES', "library used but `RANLIB' not defined in `$configure_ac'");
  2519.         # Only get this error once.  If this is ever printed,
  2520.         # we have a bug.
  2521.         $configure_vars{'RANLIB'} = 'BUG';
  2522.         last;
  2523.         }
  2524.     }
  2525.     }
  2526.  
  2527.     my $seen_libobjs = 0;
  2528.     foreach my $onelib (@liblist)
  2529.     {
  2530.     # Check that the library fits the standard naming convention.
  2531.     if (basename ($onelib) !~ /^lib.*\.a/)
  2532.     {
  2533.         # FIXME should put line number here.  That means mapping
  2534.         # from library name back to variable name.
  2535.         &am_error ("`$onelib' is not a standard library name");
  2536.     }
  2537.  
  2538.     my $obj = &get_object_extension ($onelib);
  2539.  
  2540.     # Canonicalize names and check for misspellings.
  2541.     my $xlib = &check_canonical_spelling ($onelib, '_LIBADD', '_SOURCES',
  2542.                           '_OBJECTS', '_DEPENDENCIES',
  2543.                           '_AR');
  2544.  
  2545.     if (! &variable_defined ($xlib . '_AR'))
  2546.     {
  2547.         &define_variable ($xlib . '_AR', '$(AR) cru');
  2548.     }
  2549.  
  2550.     if (&variable_defined ($xlib . '_LIBADD'))
  2551.     {
  2552.         if (&handle_lib_objects ($xlib, $xlib . '_LIBADD'))
  2553.         {
  2554.         $seen_libobjs = 1;
  2555.         }
  2556.     }
  2557.     else
  2558.     {
  2559.         # Generate support for conditional object inclusion in
  2560.         # libraries.
  2561.         &define_variable ($xlib . "_LIBADD", '');
  2562.     }
  2563.  
  2564.     if (&variable_defined ($xlib . '_LDADD'))
  2565.     {
  2566.         &am_line_error ($xlib . '_LDADD',
  2567.                 "use `" . $xlib . "_LIBADD', not `"
  2568.                 . $xlib . "_LDADD'");
  2569.     }
  2570.  
  2571.     # Make sure we at look at this.
  2572.     &examine_variable ($xlib . '_DEPENDENCIES');
  2573.  
  2574.     &handle_source_transform ($xlib, $onelib, $obj);
  2575.  
  2576.     # If the resulting library lies into a subdirectory,
  2577.     # make sure this directory will exist.
  2578.     my $dirstamp = &require_build_directory_maybe ($onelib);
  2579.  
  2580.     $output_rules .= &file_contents ('library',
  2581.                      ('LIBRARY'  => $onelib,
  2582.                       'XLIBRARY' => $xlib,
  2583.                       'DIRSTAMP' => $dirstamp));
  2584.     }
  2585.  
  2586.     if ($seen_libobjs)
  2587.     {
  2588.     foreach my $onelib (@liblist)
  2589.     {
  2590.         my $xlib = &canonicalize ($onelib);
  2591.         if (&variable_defined ($xlib . '_LIBADD'))
  2592.         {
  2593.         &check_libobjs_sources ($xlib, $xlib . '_LIBADD');
  2594.         }
  2595.     }
  2596.     }
  2597. }
  2598.  
  2599.  
  2600. # handle_ltlibraries ()
  2601. # ---------------------
  2602. # Handle shared libraries.
  2603. sub handle_ltlibraries
  2604. {
  2605.     my @liblist = &am_install_var ('ltlib', 'LTLIBRARIES',
  2606.                    'noinst', 'lib', 'pkglib', 'check');
  2607.     return if ! @liblist;
  2608.  
  2609.     my %instdirs;
  2610.     my %valid = &am_primary_prefixes ('LTLIBRARIES', 0, 'lib', 'pkglib',
  2611.                       'noinst', 'check');
  2612.  
  2613.     foreach my $key (keys %valid)
  2614.     {
  2615.     if (&variable_defined ($key . '_LTLIBRARIES'))
  2616.     {
  2617.         if (!$seen_libtool)
  2618.         {
  2619.         &am_line_error ($key . '_LTLIBRARIES', "library used but `LIBTOOL' not defined in `$configure_ac'");
  2620.         # Only get this error once.  If this is ever printed,
  2621.         # we have a bug.
  2622.         $configure_vars{'LIBTOOL'} = 'BUG';
  2623.         $seen_libtool = 1;
  2624.         }
  2625.  
  2626.         # Get the installation directory of each library.
  2627.         for (&variable_value_as_list ($key . '_LTLIBRARIES', 'all'))
  2628.         {
  2629.         if ($instdirs{$_})
  2630.         {
  2631.             &am_error ("`$_' is already going to be installed in `$instdirs{$_}'");
  2632.         }
  2633.         else
  2634.         {
  2635.             $instdirs{$_} = $key;
  2636.         }
  2637.         }
  2638.     }
  2639.     }
  2640.  
  2641.     my $seen_libobjs = 0;
  2642.     foreach my $onelib (@liblist)
  2643.     {
  2644.     my $obj = &get_object_extension ($onelib);
  2645.  
  2646.     # Canonicalize names and check for misspellings.
  2647.     my $xlib = &check_canonical_spelling ($onelib, '_LIBADD', '_LDFLAGS',
  2648.                           '_SOURCES', '_OBJECTS',
  2649.                           '_DEPENDENCIES');
  2650.  
  2651.     if (! &variable_defined ($xlib . '_LDFLAGS'))
  2652.     {
  2653.         # Define the lib_LDFLAGS variable.
  2654.         &define_variable ($xlib . '_LDFLAGS', '');
  2655.     }
  2656.  
  2657.     # Check that the library fits the standard naming convention.
  2658.         my $libname_rx = "^lib.*\.la";
  2659.     if ((&variable_defined ($xlib . '_LDFLAGS')
  2660.          && grep (/-module/, &variable_value_as_list ($xlib . '_LDFLAGS',
  2661.                               'all')))
  2662.         || (&variable_defined ('LDFLAGS')
  2663.         && grep (/-module/, &variable_value_as_list ('LDFLAGS',
  2664.                                  'all'))))
  2665.     {
  2666.         # Relax name checking for libtool modules.
  2667.             $libname_rx = "\.la";
  2668.     }
  2669.     if (basename ($onelib) !~ /$libname_rx$/)
  2670.     {
  2671.         # FIXME this should only be a warning for foreign packages
  2672.         # FIXME should put line number here.  That means mapping
  2673.         # from library name back to variable name.
  2674.         &am_error ("`$onelib' is not a standard libtool library name");
  2675.     }
  2676.  
  2677.     if (&variable_defined ($xlib . '_LIBADD'))
  2678.     {
  2679.         if (&handle_lib_objects ($xlib, $xlib . '_LIBADD'))
  2680.         {
  2681.         $seen_libobjs = 1;
  2682.         }
  2683.     }
  2684.     else
  2685.     {
  2686.         # Generate support for conditional object inclusion in
  2687.         # libraries.
  2688.         &define_variable ($xlib . "_LIBADD", '');
  2689.     }
  2690.  
  2691.     if (&variable_defined ($xlib . '_LDADD'))
  2692.     {
  2693.         &am_line_error ($xlib . '_LDADD',
  2694.                 "use `" . $xlib . "_LIBADD', not `"
  2695.                 . $xlib . "_LDADD'");
  2696.     }
  2697.  
  2698.     # Make sure we at look at this.
  2699.     &examine_variable ($xlib . '_DEPENDENCIES');
  2700.  
  2701.     my $linker = &handle_source_transform ($xlib, $onelib, $obj);
  2702.  
  2703.     # Determine program to use for link.
  2704.     my $xlink;
  2705.     if (&variable_defined ($xlib . '_LINK'))
  2706.     {
  2707.         $xlink = $xlib . '_LINK';
  2708.     }
  2709.     else
  2710.     {
  2711.         $xlink = $linker ? $linker : 'LINK';
  2712.     }
  2713.  
  2714.     my $rpath;
  2715.     if ($instdirs{$onelib} eq 'EXTRA'
  2716.         || $instdirs{$onelib} eq 'noinst'
  2717.         || $instdirs{$onelib} eq 'check')
  2718.     {
  2719.         # It's an EXTRA_ library, so we can't specify -rpath,
  2720.         # because we don't know where the library will end up.
  2721.         # The user probably knows, but generally speaking automake
  2722.         # doesn't -- and in fact configure could decide
  2723.         # dynamically between two different locations.
  2724.         $rpath = '';
  2725.     }
  2726.     else
  2727.     {
  2728.         $rpath = ('-rpath $(' . $instdirs{$onelib} . 'dir)');
  2729.     }
  2730.  
  2731.     # If the resulting library lies into a subdirectory,
  2732.     # make sure this directory will exist.
  2733.     my $dirstamp = &require_build_directory_maybe ($onelib);
  2734.  
  2735.     $output_rules .= &file_contents ('ltlibrary',
  2736.                      ('LTLIBRARY'  => $onelib,
  2737.                       'XLTLIBRARY' => $xlib,
  2738.                       'RPATH'      => $rpath,
  2739.                       'XLINK'      => $xlink,
  2740.                       'DIRSTAMP'   => $dirstamp));
  2741.     }
  2742.  
  2743.     if ($seen_libobjs)
  2744.     {
  2745.     foreach my $onelib (@liblist)
  2746.     {
  2747.         my $xlib = &canonicalize ($onelib);
  2748.         if (&variable_defined ($xlib . '_LIBADD'))
  2749.         {
  2750.         &check_libobjs_sources ($xlib, $xlib . '_LIBADD');
  2751.         }
  2752.     }
  2753.     }
  2754. }
  2755.  
  2756. # See if any _SOURCES variable were misspelled.  Also, make sure that
  2757. # EXTRA_ variables don't contain configure substitutions.
  2758. sub check_typos
  2759. {
  2760.     foreach my $varname (keys %var_value)
  2761.     {
  2762.     foreach my $primary ('_SOURCES', '_LIBADD', '_LDADD', '_LDFLAGS',
  2763.                  '_DEPENDENCIES')
  2764.     {
  2765.         if ($varname =~ /$primary$/ && ! $content_seen{$varname})
  2766.         {
  2767.         &am_line_error ($varname,
  2768.                 "invalid unused variable name: `$varname'");
  2769.         }
  2770.     }
  2771.     }
  2772. }
  2773.  
  2774. # Handle scripts.
  2775. sub handle_scripts
  2776. {
  2777.     # NOTE we no longer automatically clean SCRIPTS, because it is
  2778.     # useful to sometimes distribute scripts verbatim.  This happens
  2779.     # eg in Automake itself.
  2780.     &am_install_var ('-candist', 'scripts', 'SCRIPTS',
  2781.              'bin', 'sbin', 'libexec', 'pkgdata',
  2782.              'noinst', 'check');
  2783. }
  2784.  
  2785.  
  2786. # ($OUTFILE, $VFILE, @CLEAN_FILES)
  2787. # &scan_texinfo_file ($FILENAME)
  2788. # ------------------------------
  2789. # $OUTFILE is the name of the info file produced by $FILENAME.
  2790. # $VFILE is the name of the version.texi file used (empty if none).
  2791. # @CLEAN_FILES is the list of by products (indexes etc.)
  2792. sub scan_texinfo_file
  2793. {
  2794.     my ($filename) = @_;
  2795.  
  2796.     # These are always created, no matter whether indexes are used or not.
  2797.     my @clean_suffixes = ('aux', 'dvi', 'log', 'ps', 'toc',
  2798.               # grep new.*index texinfo.tex
  2799.               'cp', 'fn', 'ky', 'vr', 'tp', 'pg');
  2800.  
  2801.     # There are predefined indexes which don't follow the regular rules.
  2802.     my %predefined_index =
  2803.       (
  2804.        # cindex => *.cps
  2805.        'c' => 'cps', 'f' => 'fns', 'k' => 'kys',
  2806.        'v' => 'vrs', 't' => 'tps', 'p' => 'pgs'
  2807.       );
  2808.  
  2809.     # There are commands which include a hidden index command.
  2810.     my %hidden_index =
  2811.       (
  2812.        # deffn => *.fns.
  2813.        'fn' => 'fns',     'un' => 'fns',
  2814.        'typefn' => 'fns', 'typefun' => 'fns',
  2815.        'mac' => 'fns', 'spec' => 'fns',
  2816.        'op' => 'fns',  'typeop' => 'fns',
  2817.        'method' => 'fns', 'typemethod' => 'fns',
  2818.  
  2819.        'vr' => 'vrs', 'var' => 'vrs',
  2820.        'typevr' => 'vrs', 'typevar' => 'vrs',
  2821.        'opt' => 'vrs',
  2822.        'cv' => 'vrs',
  2823.        'ivar' => 'vrs', 'typeivar' => 'vrs',
  2824.  
  2825.        'tp' => 'tps'
  2826.       );
  2827.  
  2828.     # Indexes stored into another one.  In this case, the *.??s file
  2829.     # is not created.
  2830.     my @syncodeindexes = ();
  2831.  
  2832.     my $texi = new IO::File ("< $filename");
  2833.     if (! $texi)
  2834.       {
  2835.     &am_error ("couldn't open `$filename': $!");
  2836.     return '';
  2837.     }
  2838.     print "$me: reading $filename\n" if $verbose;
  2839.  
  2840.     my ($outfile, $vfile);
  2841.     while ($_ = $texi->getline)
  2842.     {
  2843.       if (/^\@setfilename +(\S+)/)
  2844.       {
  2845.         $outfile = $1;
  2846.         if ($outfile =~ /\.(.+)$/ && $1 ne 'info')
  2847.           {
  2848.             &am_file_error ($filename, "$.: ",
  2849.                             "output `$outfile' has unrecognized extension");
  2850.             return;
  2851.           }
  2852.       }
  2853.       # A "version.texi" file is actually any file whose name
  2854.       # matches "vers*.texi".
  2855.       elsif (/^\@include\s+(vers[^.]*\.texi)\s*$/)
  2856.       {
  2857.         $vfile = $1;
  2858.       }
  2859.  
  2860.       # Try to find what are the indexes which are used.
  2861.  
  2862.       # Creating a new category of index.
  2863.       elsif (/^\@def(code)?index (\w+)/)
  2864.       {
  2865.         push @clean_suffixes, $2;
  2866.       }
  2867.  
  2868.       # Storing in a predefined index.
  2869.       elsif (/^\@([cfkvtp])index /)
  2870.       {
  2871.         push @clean_suffixes, $predefined_index{$1};
  2872.       }
  2873.       elsif (/^\@def(\w+) /)
  2874.       {
  2875.     push @clean_suffixes, $hidden_index{$1}
  2876.       if defined $hidden_index{$1};
  2877.       }
  2878.  
  2879.       # Merging an index into an another.
  2880.       elsif (/^\@syn(code)?index (\w+) (\w+)/)
  2881.       {
  2882.     push @syncodeindexes, "$2s";
  2883.     push @clean_suffixes, "$3s";
  2884.       }
  2885.  
  2886.     }
  2887.     $texi->close;
  2888.  
  2889.     if ($outfile eq '')
  2890.       {
  2891.     &am_error ("`$filename' missing \@setfilename");
  2892.     return;
  2893.       }
  2894.  
  2895.     my $infobase = basename ($filename);
  2896.     $infobase =~ s/\.te?xi(nfo)?$//;
  2897.     # FIXME: I don't understand why, but I can't use "$infobase.$_" => 1.
  2898.     my %clean_files = map { "$infobase" . ".$_" => 1 } @clean_suffixes;
  2899.     grep { delete $clean_files{"$infobase.$_"} } @syncodeindexes;
  2900.     return ($outfile, $vfile, (sort keys %clean_files));
  2901. }
  2902.  
  2903.  
  2904. # ($DO-SOMETHING, $TEXICLEANS)
  2905. # handle_texinfo_helper ()
  2906. # -----------------
  2907. # Handle all Texinfo source; helper for handle_texinfo
  2908. sub handle_texinfo_helper
  2909. {
  2910.     &am_line_error ('TEXINFOS',
  2911.             "`TEXINFOS' is an anachronism; use `info_TEXINFOS'")
  2912.     if &variable_defined ('TEXINFOS');
  2913.     return (0, '') if (! &variable_defined ('info_TEXINFOS')
  2914.                && ! &variable_defined ('html_TEXINFOS'));
  2915.  
  2916.     if (&variable_defined ('html_TEXINFOS'))
  2917.     {
  2918.     &am_line_error ('html_TEXINFOS',
  2919.             "HTML generation not yet supported");
  2920.     return (0, '');
  2921.     }
  2922.  
  2923.     my @texis = &variable_value_as_list ('info_TEXINFOS', 'all');
  2924.  
  2925.     my (@info_deps_list, @dvis_list, @texi_deps);
  2926.     my %versions;
  2927.     my $done = 0;
  2928.     my @texi_cleans;
  2929.     my $canonical;
  2930.  
  2931.     my %texi_suffixes;
  2932.     foreach my $info_cursor (@texis)
  2933.     {
  2934.         my $infobase = $info_cursor;
  2935.         $infobase =~ s/\.(txi|texinfo|texi)$//;
  2936.  
  2937.     if ($infobase eq $info_cursor)
  2938.     {
  2939.         # FIXME: report line number.
  2940.         &am_error ("texinfo file `$info_cursor' has unrecognized extension");
  2941.         next;
  2942.     }
  2943.     $texi_suffixes{$1} = 1;
  2944.  
  2945.     # If 'version.texi' is referenced by input file, then include
  2946.     # automatic versioning capability.
  2947.     my ($out_file, $vtexi, @clean_files) =
  2948.       &scan_texinfo_file ("$relative_dir/$info_cursor")
  2949.         or next;
  2950.     push (@texi_cleans, @clean_files);
  2951.  
  2952.     if ($vtexi)
  2953.     {
  2954.         &am_error ("`$vtexi', included in `$info_cursor', also included in `$versions{$vtexi}'")
  2955.         if (defined $versions{$vtexi});
  2956.         $versions{$vtexi} = $info_cursor;
  2957.  
  2958.         # We number the stamp-vti files.  This is doable since the
  2959.         # actual names don't matter much.  We only number starting
  2960.         # with the second one, so that the common case looks nice.
  2961.         my $vti = ($done ? $done : 'vti');
  2962.         ++$done;
  2963.  
  2964.         # This is ugly, but it is our historical practice.
  2965.         if ($config_aux_dir_set_in_configure_in)
  2966.         {
  2967.         &require_conf_file_with_line ('info_TEXINFOS', $FOREIGN,
  2968.                           'mdate-sh');
  2969.         }
  2970.         else
  2971.         {
  2972.         &require_file_with_line ('info_TEXINFOS', $FOREIGN,
  2973.                      'mdate-sh');
  2974.         }
  2975.  
  2976.         my $conf_dir;
  2977.         if ($config_aux_dir_set_in_configure_in)
  2978.         {
  2979.         $conf_dir = $config_aux_dir;
  2980.         $conf_dir .= '/' unless $conf_dir =~ /\/$/;
  2981.         }
  2982.         else
  2983.         {
  2984.         $conf_dir = '$(srcdir)/';
  2985.         }
  2986.         $output_rules .= &file_contents ('texi-vers',
  2987.                          ('TEXI'  => $info_cursor,
  2988.                           'VTI'   => $vti,
  2989.                           'VTEXI' => $vtexi,
  2990.                           'MDDIR' => $conf_dir));
  2991.     }
  2992.  
  2993.     # If user specified file_TEXINFOS, then use that as explicit
  2994.     # dependency list.
  2995.     @texi_deps = ();
  2996.     push (@texi_deps, $info_cursor);
  2997.     # Prefix with $(srcdir) because some version of make won't
  2998.     # work if the target has it and the dependency doesn't.
  2999.     push (@texi_deps, '$(srcdir)/' . $vtexi) if $vtexi;
  3000.  
  3001.     my $canonical = &canonicalize ($infobase);
  3002.     if (&variable_defined ($canonical . "_TEXINFOS"))
  3003.     {
  3004.         push (@texi_deps, '$(' . $canonical . '_TEXINFOS)');
  3005.         &push_dist_common ('$(' . $canonical . '_TEXINFOS)');
  3006.     }
  3007.  
  3008.     $output_rules .= ("\n" . $out_file . ": "
  3009.               . join (' ', @texi_deps)
  3010.               . "\n" . $infobase . ".dvi: "
  3011.               . join (' ', @texi_deps)
  3012.               . "\n");
  3013.  
  3014.     push (@info_deps_list, $out_file);
  3015.     push (@dvis_list, $infobase . '.dvi');
  3016.     }
  3017.  
  3018.     # Handle location of texinfo.tex.
  3019.     my $need_texi_file = 0;
  3020.     my $texinfodir;
  3021.     if ($cygnus_mode)
  3022.     {
  3023.         $texinfodir = '$(top_srcdir)/../texinfo';
  3024.     &define_variable ('TEXINFO_TEX', "$texinfodir/texinfo.tex");
  3025.     }
  3026.     elsif ($config_aux_dir_set_in_configure_in)
  3027.     {
  3028.         $texinfodir = $config_aux_dir;
  3029.     &define_variable ('TEXINFO_TEX', "$texinfodir/texinfo.tex");
  3030.     $need_texi_file = 2; # so that we require_conf_file later
  3031.     }
  3032.     elsif (&variable_defined ('TEXINFO_TEX'))
  3033.     {
  3034.     # The user defined TEXINFO_TEX so assume he knows what he is
  3035.     # doing.
  3036.         $texinfodir = ('$(srcdir)/'
  3037.                . dirname (&variable_value ('TEXINFO_TEX')));
  3038.     }
  3039.     else
  3040.     {
  3041.         $texinfodir = '$(srcdir)';
  3042.     $need_texi_file = 1;
  3043.     }
  3044.  
  3045.     foreach my $txsfx (sort keys %texi_suffixes)
  3046.     {
  3047.     $output_rules .= &file_contents ('texibuild',
  3048.                      ('TEXINFODIR' => $texinfodir,
  3049.                       'SUFFIX'     => $txsfx));
  3050.     }
  3051.  
  3052.     # The return value.
  3053.     my $texiclean = &pretty_print_internal ("", "\t  ", @texi_cleans);
  3054.  
  3055.     push (@dist_targets, 'dist-info');
  3056.  
  3057.     if (! defined $options{'no-installinfo'})
  3058.     {
  3059.     # Make sure documentation is made and installed first.  Use
  3060.     # $(INFO_DEPS), not 'info', because otherwise recursive makes
  3061.     # get run twice during "make all".
  3062.     unshift (@all, '$(INFO_DEPS)');
  3063.     }
  3064.  
  3065.     &define_variable ("INFO_DEPS", join (' ', @info_deps_list));
  3066.     &define_variable ("DVIS", join (' ', @dvis_list));
  3067.     # This next isn't strictly needed now -- the places that look here
  3068.     # could easily be changed to look in info_TEXINFOS.  But this is
  3069.     # probably better, in case noinst_TEXINFOS is ever supported.
  3070.     &define_variable ("TEXINFOS", &variable_value ('info_TEXINFOS'));
  3071.  
  3072.     # Do some error checking.  Note that this file is not required
  3073.     # when in Cygnus mode; instead we defined TEXINFO_TEX explicitly
  3074.     # up above.
  3075.     if ($need_texi_file && ! defined $options{'no-texinfo.tex'})
  3076.     {
  3077.     if ($need_texi_file > 1)
  3078.     {
  3079.         &require_conf_file_with_line ('info_TEXINFOS', $FOREIGN,
  3080.                       'texinfo.tex');
  3081.     }
  3082.     else
  3083.     {
  3084.         &require_file_with_line ('info_TEXINFOS', $FOREIGN, 'texinfo.tex');
  3085.     }
  3086.     }
  3087.  
  3088.     return (1, $texiclean);
  3089. }
  3090.  
  3091. # handle_texinfo ()
  3092. # -----------------
  3093. # Handle all Texinfo source.
  3094. sub handle_texinfo
  3095. {
  3096.     my ($do_something, $texiclean) = handle_texinfo_helper ();
  3097.     $output_rules .=  &file_contents ('texinfos',
  3098.                       ('TEXICLEAN' => $texiclean,
  3099.                        'LOCAL-TEXIS' => $do_something));
  3100. }
  3101.  
  3102. # Handle any man pages.
  3103. sub handle_man_pages
  3104. {
  3105.     &am_line_error ('MANS', "`MANS' is an anachronism; use `man_MANS'")
  3106.     if &variable_defined ('MANS');
  3107.  
  3108.     # Find all the sections in use.  We do this by first looking for
  3109.     # "standard" sections, and then looking for any additional
  3110.     # sections used in man_MANS.
  3111.     my (%sections, %vlist);
  3112.     # We handle nodist_ for uniformity.  man pages aren't distributed
  3113.     # by default so it isn't actually very important.
  3114.     foreach my $pfx ('', 'dist_', 'nodist_')
  3115.     {
  3116.     # Add more sections as needed.
  3117.     foreach my $section ('0'..'9', 'n', 'l')
  3118.     {
  3119.         if (&variable_defined ($pfx . 'man' . $section . '_MANS'))
  3120.         {
  3121.         $sections{$section} = 1;
  3122.         $vlist{'$(' . $pfx . 'man' . $section . '_MANS)'} = 1;
  3123.  
  3124.         &push_dist_common ('$(' . $pfx . 'man' . $section . '_MANS)')
  3125.             if $pfx eq 'dist_';
  3126.         }
  3127.     }
  3128.  
  3129.     if (&variable_defined ($pfx . 'man_MANS'))
  3130.     {
  3131.         $vlist{'$(' . $pfx . 'man_MANS)'} = 1;
  3132.         foreach (&variable_value_as_list ($pfx . 'man_MANS', 'all'))
  3133.         {
  3134.         # A page like `foo.1c' goes into man1dir.
  3135.         if (/\.([0-9a-z])([a-z]*)$/)
  3136.         {
  3137.             $sections{$1} = 1;
  3138.         }
  3139.         }
  3140.  
  3141.         &push_dist_common ('$(' . $pfx . 'man_MANS)')
  3142.         if $pfx eq 'dist_';
  3143.     }
  3144.     }
  3145.  
  3146.     return unless %sections;
  3147.  
  3148.     # Now for each section, generate an install and unintall rule.
  3149.     # Sort sections so output is deterministic.
  3150.     foreach my $section (sort keys %sections)
  3151.     {
  3152.     $output_rules .= &file_contents ('mans', ('SECTION' => $section));
  3153.     }
  3154.  
  3155.     $output_vars .= &file_contents ('mans-vars',
  3156.                     ('MANS' => join (' ', sort keys %vlist)));
  3157.  
  3158.     if (! defined $options{'no-installman'})
  3159.     {
  3160.     push (@all, '$(MANS)');
  3161.     }
  3162. }
  3163.  
  3164. # Handle DATA variables.
  3165. sub handle_data
  3166. {
  3167.     &am_install_var ('-noextra', '-candist', 'data', 'DATA',
  3168.              'data', 'sysconf', 'sharedstate', 'localstate',
  3169.              'pkgdata', 'noinst', 'check');
  3170. }
  3171.  
  3172. # Handle TAGS.
  3173. sub handle_tags
  3174. {
  3175.     my @tag_deps = ();
  3176.     if (&variable_defined ('SUBDIRS'))
  3177.     {
  3178.     $output_rules .= ("tags-recursive:\n"
  3179.               . "\tlist=\'\$(SUBDIRS)\'; for subdir in \$\$list; do \\\n"
  3180.               # Never fail here if a subdir fails; it
  3181.               # isn't important.
  3182.               . "\t  test \"\$\$subdir\" = . || (cd \$\$subdir"
  3183.               . " && \$(MAKE) \$(AM_MAKEFLAGS) tags); \\\n"
  3184.               . "\tdone\n");
  3185.     push (@tag_deps, 'tags-recursive');
  3186.     &depend ('.PHONY', 'tags-recursive');
  3187.     }
  3188.  
  3189.     if (&saw_sources_p (1)
  3190.     || &variable_defined ('ETAGS_ARGS')
  3191.     || @tag_deps)
  3192.     {
  3193.     my $config = '';
  3194.     foreach my $one_hdr (@config_headers)
  3195.     {
  3196.         if ($relative_dir eq dirname ($one_hdr))
  3197.         {
  3198.         # The config header is in this directory.  So require it.
  3199.         $config .= ' ' if $config;
  3200.         $config .= basename ($one_hdr);
  3201.         }
  3202.     }
  3203.     $output_rules .= &file_contents ('tags',
  3204.                      ('CONFIG' => $config,
  3205.                       'DIRS'   => join (' ', @tag_deps)));
  3206.     &examine_variable ('TAGS_DEPENDENCIES');
  3207.     }
  3208.     elsif (&variable_defined ('TAGS_DEPENDENCIES'))
  3209.     {
  3210.     &am_line_error ('TAGS_DEPENDENCIES',
  3211.             "doesn't make sense to define `TAGS_DEPENDENCIES' without sources or `ETAGS_ARGS'");
  3212.     }
  3213.     else
  3214.     {
  3215.     # Every Makefile must define some sort of TAGS rule.
  3216.     # Otherwise, it would be possible for a top-level "make TAGS"
  3217.     # to fail because some subdirectory failed.
  3218.     $output_rules .= "tags: TAGS\nTAGS:\n\n";
  3219.     }
  3220. }
  3221.  
  3222. # Handle multilib support.
  3223. sub handle_multilib
  3224. {
  3225.     if ($seen_multilib && $relative_dir eq '.')
  3226.     {
  3227.     $output_rules .= &file_contents ('multilib');
  3228.     }
  3229. }
  3230.  
  3231.  
  3232. # $BOOLEAN
  3233. # &for_dist_common ($A, $B)
  3234. # -------------------------
  3235. # Subroutine for &handle_dist: sort files to dist.
  3236. #
  3237. # We put README first because it then becomes easier to make a
  3238. # Usenet-compliant shar file (in these, README must be first).
  3239. #
  3240. # FIXME: do more ordering of files here.
  3241. sub for_dist_common
  3242. {
  3243.     return 0
  3244.         if $a eq $b;
  3245.     return -1
  3246.         if $a eq 'README';
  3247.     return 1
  3248.         if $b eq 'README';
  3249.     return $a cmp $b;
  3250. }
  3251.  
  3252.  
  3253. # handle_dist ($MAKEFILE)
  3254. # -----------------------
  3255. # Handle 'dist' target.
  3256. sub handle_dist
  3257. {
  3258.     my ($makefile) = @_;
  3259.  
  3260.     # `make dist' isn't used in a Cygnus-style tree.
  3261.     # Omit the rules so that people don't try to use them.
  3262.     return if $cygnus_mode;
  3263.  
  3264.     # Look for common files that should be included in distribution.
  3265.     # If the aux dir is set, and it does not have a Makefile.am, then
  3266.     # we check for these files there as well.
  3267.     my $check_aux = 0;
  3268.     my $auxdir = '';
  3269.     if ($relative_dir eq '.'
  3270.     && $config_aux_dir_set_in_configure_in)
  3271.     {
  3272.     ($auxdir = $config_aux_dir) =~ s,^\$\(top_srcdir\)/,,;
  3273.     if (! &is_make_dir ($auxdir))
  3274.     {
  3275.         $check_aux = 1;
  3276.     }
  3277.     }
  3278.     foreach my $cfile (@common_files)
  3279.     {
  3280.     if (-f ($relative_dir . "/" . $cfile))
  3281.     {
  3282.         &push_dist_common ($cfile);
  3283.     }
  3284.  
  3285.     # Don't use `elsif' here because a file might meaningfully
  3286.     # appear in both directories.
  3287.     if ($check_aux && -f ($auxdir . '/' . $cfile))
  3288.     {
  3289.         &push_dist_common ($auxdir . '/' . $cfile);
  3290.     }
  3291.     }
  3292.  
  3293.     # We might copy elements from $configure_dist_common to
  3294.     # %dist_common if we think we need to.  If the file appears in our
  3295.     # directory, we would have discovered it already, so we don't
  3296.     # check that.  But if the file is in a subdir without a Makefile,
  3297.     # we want to distribute it here if we are doing `.'.  Ugly!
  3298.     if ($relative_dir eq '.')
  3299.     {
  3300.        foreach my $file (split (' ' , $configure_dist_common))
  3301.        {
  3302.            if (! &is_make_dir (dirname ($file)))
  3303.            {
  3304.                &push_dist_common ($file);
  3305.            }
  3306.        }
  3307.     }
  3308.  
  3309.  
  3310.  
  3311.     # Files to distributed.  Don't use &variable_value_as_list
  3312.     # as it recursively expands `$(dist_pkgdata_DATA)' etc.
  3313.     check_variable_defined_unconditionally ('DIST_COMMON');
  3314.     my @dist_common = split (' ', variable_value ('DIST_COMMON', 'TRUE'));
  3315.     @dist_common = uniq (sort for_dist_common (@dist_common));
  3316.     pretty_print ('DIST_COMMON = ', "\t", @dist_common);
  3317.  
  3318.     # Now that we've processed DIST_COMMON, disallow further attempts
  3319.     # to set it.
  3320.     $handle_dist_run = 1;
  3321.  
  3322.     # Scan EXTRA_DIST to see if we need to distribute anything from a
  3323.     # subdir.  If so, add it to the list.  I didn't want to do this
  3324.     # originally, but there were so many requests that I finally
  3325.     # relented.
  3326.     if (&variable_defined ('EXTRA_DIST'))
  3327.     {
  3328.     # FIXME: This should be fixed to work with conditionals.  That
  3329.     # will require only making the entries in %dist_dirs under the
  3330.     # appropriate condition.  This is meaningful if the nature of
  3331.     # the distribution should depend upon the configure options
  3332.     # used.
  3333.     foreach (&variable_value_as_list ('EXTRA_DIST', ''))
  3334.     {
  3335.         next if /^\@.*\@$/;
  3336.         next unless s,/+[^/]+$,,;
  3337.         $dist_dirs{$_} = 1
  3338.         unless $_ eq '.';
  3339.     }
  3340.     }
  3341.  
  3342.     # We have to check DIST_COMMON for extra directories in case the
  3343.     # user put a source used in AC_OUTPUT into a subdir.
  3344.     foreach (&variable_value_as_list ('DIST_COMMON', 'all'))
  3345.     {
  3346.     next if /^\@.*\@$/;
  3347.     next unless s,/+[^/]+$,,;
  3348.     $dist_dirs{$_} = 1
  3349.         unless $_ eq '.';
  3350.     }
  3351.  
  3352.     # Rule to check whether a distribution is viable.
  3353.     my %transform = ('DISTCHECK-HOOK' => &target_defined ('distcheck-hook'),
  3354.              'GETTEXT'        => $seen_gettext);
  3355.  
  3356.     # Prepend $(distdir) to each directory given.
  3357.     my %rewritten = map { '$(distdir)/' . "$_" => 1 } keys %dist_dirs;
  3358.     $transform{'DISTDIRS'} = join (' ', sort keys %rewritten);
  3359.  
  3360.     # If we have SUBDIRS, create all dist subdirectories and do
  3361.     # recursive build.
  3362.     if (&variable_defined ('SUBDIRS'))
  3363.     {
  3364.     # If SUBDIRS is conditionally defined, then set DIST_SUBDIRS
  3365.     # to all possible directories, and use it.  If DIST_SUBDIRS is
  3366.     # defined, just use it.
  3367.     my $dist_subdir_name;
  3368.     # Note that we check DIST_SUBDIRS first on purpose.  At least
  3369.     # one project uses so many conditional subdirectories that
  3370.     # calling variable_conditionally_defined on SUBDIRS will cause
  3371.     # automake to grow to 150Mb.  Sigh.
  3372.     if (&variable_defined ('DIST_SUBDIRS')
  3373.         || variable_conditionally_defined ('SUBDIRS'))
  3374.     {
  3375.         $dist_subdir_name = 'DIST_SUBDIRS';
  3376.         if (! &variable_defined ('DIST_SUBDIRS'))
  3377.         {
  3378.         &define_pretty_variable
  3379.           ('DIST_SUBDIRS', '',
  3380.            uniq (&variable_value_as_list ('SUBDIRS', 'all')));
  3381.         }
  3382.     }
  3383.     else
  3384.     {
  3385.         $dist_subdir_name = 'SUBDIRS';
  3386.         # We always define this because that is what `distclean'
  3387.         # wants.
  3388.         &define_pretty_variable ('DIST_SUBDIRS', '', '$(SUBDIRS)');
  3389.     }
  3390.  
  3391.     $transform{'DIST_SUBDIR_NAME'} = $dist_subdir_name;
  3392.     }
  3393.  
  3394.     # If the target `dist-hook' exists, make sure it is run.  This
  3395.     # allows users to do random weird things to the distribution
  3396.     # before it is packaged up.
  3397.     push (@dist_targets, 'dist-hook')
  3398.       if &target_defined ('dist-hook');
  3399.     $transform{'DIST-TARGETS'} = join(' ', @dist_targets);
  3400.  
  3401.     # Defining $(DISTDIR).
  3402.     $transform{'DISTDIR'} = !&variable_defined('distdir');
  3403.     $transform{'TOP_DISTDIR'} = backname ($relative_dir);
  3404.  
  3405.     $output_rules .= &file_contents ('distdir', %transform);
  3406. }
  3407.  
  3408.  
  3409. # Handle subdirectories.
  3410. sub handle_subdirs
  3411. {
  3412.     return
  3413.       unless &variable_defined ('SUBDIRS');
  3414.  
  3415.     # Make sure each directory mentioned in SUBDIRS actually exists.
  3416.     foreach my $dir (&variable_value_as_list ('SUBDIRS', 'all'))
  3417.     {
  3418.     # Skip directories substituted by configure.
  3419.     next if $dir =~ /^\@.*\@$/;
  3420.  
  3421.     if (! -d $am_relative_dir . '/' . $dir)
  3422.     {
  3423.         &am_line_error ('SUBDIRS',
  3424.                 "required directory $am_relative_dir/$dir does not exist");
  3425.         next;
  3426.     }
  3427.  
  3428.     &am_line_error ('SUBDIRS', "directory should not contain `/'")
  3429.         if $dir =~ /\//;
  3430.     }
  3431.  
  3432.     $output_rules .= &file_contents ('subdirs');
  3433.     variable_pretty_output ('RECURSIVE_TARGETS', 'TRUE');
  3434. }
  3435.  
  3436.  
  3437. # ($REGEN, @DEPENDENCIES)
  3438. # &scan_aclocal_m4
  3439. # ----------------
  3440. # If aclocal.m4 creation is automated, return the list of its dependencies.
  3441. sub scan_aclocal_m4
  3442. {
  3443.     my $regen_aclocal = 0;
  3444.  
  3445.     return (0, ())
  3446.       unless $relative_dir eq '.';
  3447.  
  3448.     &examine_variable ('CONFIG_STATUS_DEPENDENCIES');
  3449.     &examine_variable ('CONFIGURE_DEPENDENCIES');
  3450.  
  3451.     if (-f 'aclocal.m4')
  3452.     {
  3453.     &define_variable ("ACLOCAL_M4", '$(top_srcdir)/aclocal.m4');
  3454.     &push_dist_common ('aclocal.m4');
  3455.  
  3456.     my $aclocal = new IO::File ("< aclocal.m4");
  3457.     if ($aclocal)
  3458.     {
  3459.         my $line = $aclocal->getline;
  3460.         $aclocal->close;
  3461.  
  3462.         if ($line =~ 'generated automatically by aclocal')
  3463.         {
  3464.         $regen_aclocal = 1;
  3465.         }
  3466.     }
  3467.     }
  3468.  
  3469.     my @ac_deps = ();
  3470.  
  3471.     if (-f 'acinclude.m4')
  3472.     {
  3473.     $regen_aclocal = 1;
  3474.     push @ac_deps, 'acinclude.m4';
  3475.     }
  3476.  
  3477.     if (&variable_defined ('ACLOCAL_M4_SOURCES'))
  3478.     {
  3479.     push (@ac_deps, '$(ACLOCAL_M4_SOURCES)');
  3480.     }
  3481.     elsif (&variable_defined ('ACLOCAL_AMFLAGS'))
  3482.     {
  3483.     # Scan all -I directories for m4 files.  These are our
  3484.     # dependencies.
  3485.     my $examine_next = 0;
  3486.     foreach my $amdir (&variable_value_as_list ('ACLOCAL_AMFLAGS', ''))
  3487.     {
  3488.         if ($examine_next)
  3489.         {
  3490.         $examine_next = 0;
  3491.         if ($amdir !~ /^\// && -d $amdir)
  3492.         {
  3493.             foreach my $ac_dep (&my_glob ($amdir . '/*.m4'))
  3494.             {
  3495.             $ac_dep =~ s/^\.\/+//;
  3496.             push (@ac_deps, $ac_dep)
  3497.               unless $ac_dep eq "aclocal.m4"
  3498.                 || $ac_dep eq "acinclude.m4";
  3499.             }
  3500.         }
  3501.         }
  3502.         elsif ($amdir eq '-I')
  3503.         {
  3504.         $examine_next = 1;
  3505.         }
  3506.     }
  3507.     }
  3508.  
  3509.     # Note that it might be possible that aclocal.m4 doesn't exist but
  3510.     # should be auto-generated.  This case probably isn't very
  3511.     # important.
  3512.  
  3513.     return ($regen_aclocal, @ac_deps);
  3514. }
  3515.  
  3516. # Rewrite a list of input files into a form suitable to put on a
  3517. # dependency list.  The idea is that if an input file has a directory
  3518. # part the same as the current directory, then the directory part is
  3519. # simply removed.  But if the directory part is different, then
  3520. # $(top_srcdir) is prepended.  Among other things, this is used to
  3521. # generate the dependency list for the output files generated by
  3522. # AC_OUTPUT.  Consider what the dependencies should look like in this
  3523. # case:
  3524. #   AC_OUTPUT(src/out:src/in1:lib/in2)
  3525. # The first argument, ADD_SRCDIR, is 1 if $(top_srcdir) should be added.
  3526. # If 0 then files that require this addition will simply be ignored.
  3527. sub rewrite_inputs_into_dependencies
  3528. {
  3529.     my ($add_srcdir, @inputs) = @_;
  3530.     my @newinputs;
  3531.  
  3532.     foreach my $single (@inputs)
  3533.     {
  3534.     if (dirname ($single) eq $relative_dir)
  3535.     {
  3536.         push (@newinputs, basename ($single));
  3537.     }
  3538.     elsif ($add_srcdir)
  3539.     {
  3540.         push (@newinputs, '$(top_srcdir)/' . $single);
  3541.     }
  3542.     }
  3543.  
  3544.     return @newinputs;
  3545. }
  3546.  
  3547. # Handle remaking and configure stuff.
  3548. # We need the name of the input file, to do proper remaking rules.
  3549. sub handle_configure
  3550. {
  3551.     my ($local, $input, @secondary_inputs) = @_;
  3552.  
  3553.     my $input_base = basename ($input);
  3554.     my $local_base = basename ($local);
  3555.  
  3556.     my $amfile = $input_base . '.am';
  3557.     # We know we can always add '.in' because it really should be an
  3558.     # error if the .in was missing originally.
  3559.     my $infile = '$(srcdir)/' . $input_base . '.in';
  3560.     my $colon_infile = '';
  3561.     if ($local ne $input || @secondary_inputs)
  3562.     {
  3563.     $colon_infile = ':' . $input . '.in';
  3564.     }
  3565.     $colon_infile .= ':' . join (':', @secondary_inputs)
  3566.     if @secondary_inputs;
  3567.  
  3568.     my @rewritten = &rewrite_inputs_into_dependencies (1, @secondary_inputs);
  3569.  
  3570.     my ($regen_aclocal_m4, @aclocal_m4_deps) = scan_aclocal_m4 ();
  3571.  
  3572.     $output_rules .=
  3573.       &file_contents ('configure',
  3574.               ('MAKEFILE'
  3575.                => $local_base,
  3576.                'MAKEFILE-DEPS'
  3577.                => join (' ', @rewritten),
  3578.                'CONFIG-MAKEFILE'
  3579.                => ((($relative_dir eq '.') ? '$@' : '$(subdir)/$@')
  3580.                . $colon_infile),
  3581.                'MAKEFILE-IN'
  3582.                => $infile,
  3583.                'MAKEFILE-IN-DEPS'
  3584.                => join (' ', @include_stack),
  3585.                'MAKEFILE-AM'
  3586.                => $amfile,
  3587.                'STRICTNESS'
  3588.                => $cygnus_mode ? 'cygnus' : $strictness_name,
  3589.                'USE-DEPS'
  3590.                => $cmdline_use_dependencies ? '' : ' --ignore-deps',
  3591.                'MAKEFILE-AM-SOURCES'
  3592.                =>  "$input$colon_infile",
  3593.                'REGEN-ACLOCAL-M4'
  3594.                => $regen_aclocal_m4,
  3595.                'ACLOCAL_M4_DEPS'
  3596.                => join (' ', @aclocal_m4_deps)));
  3597.  
  3598.     if ($relative_dir eq '.')
  3599.     {
  3600.     &push_dist_common ('acconfig.h')
  3601.         if -f 'acconfig.h';
  3602.     }
  3603.  
  3604.     # If we have a configure header, require it.
  3605.     my @local_fullnames = @config_fullnames;
  3606.     my @local_names = @config_names;
  3607.     my $hdr_index = 0;
  3608.     my $distclean_config = '';
  3609.     foreach my $one_hdr (@config_headers)
  3610.     {
  3611.     my $one_fullname = shift (@local_fullnames);
  3612.     my $one_name = shift (@local_names);
  3613.     $hdr_index += 1;
  3614.     my $header_dir = dirname ($one_name);
  3615.  
  3616.     # If the header is in the current directory we want to build
  3617.     # the header here.  Otherwise, if we're at the topmost
  3618.     # directory and the header's directory doesn't have a
  3619.     # Makefile, then we also want to build the header.
  3620.     if ($relative_dir eq $header_dir
  3621.         || ($relative_dir eq '.' && ! &is_make_dir ($header_dir)))
  3622.     {
  3623.         my ($cn_sans_dir, $stamp_dir);
  3624.         if ($relative_dir eq $header_dir)
  3625.         {
  3626.         $cn_sans_dir = basename ($one_name);
  3627.         $stamp_dir = '';
  3628.         }
  3629.         else
  3630.         {
  3631.         $cn_sans_dir = $one_name;
  3632.         if ($header_dir eq '.')
  3633.         {
  3634.             $stamp_dir = '';
  3635.         }
  3636.         else
  3637.         {
  3638.             $stamp_dir = $header_dir . '/';
  3639.         }
  3640.         }
  3641.  
  3642.         # Compute relative path from directory holding output
  3643.         # header to directory holding input header.  FIXME:
  3644.         # doesn't handle case where we have multiple inputs.
  3645.         my $ch_sans_dir;
  3646.         if (dirname ($one_hdr) eq $relative_dir)
  3647.         {
  3648.         $ch_sans_dir = basename ($one_hdr);
  3649.         }
  3650.         else
  3651.         {
  3652.             $ch_sans_dir = backname ($relative_dir) . '/' . $one_hdr;
  3653.         }
  3654.  
  3655.         &require_file_with_conf_line ($config_header_line,
  3656.                       $FOREIGN, $ch_sans_dir);
  3657.  
  3658.         # Header defined and in this directory.
  3659.         my @files;
  3660.         if (-f $one_name . '.top')
  3661.         {
  3662.         push (@files, "${cn_sans_dir}.top");
  3663.         }
  3664.         if (-f $one_name . '.bot')
  3665.         {
  3666.         push (@files, "${cn_sans_dir}.bot");
  3667.         }
  3668.  
  3669.         &push_dist_common (@files);
  3670.  
  3671.         # For now, acconfig.h can only appear in the top srcdir.
  3672.         if (-f 'acconfig.h')
  3673.         {
  3674.             push (@files, '$(top_srcdir)/acconfig.h');
  3675.         }
  3676.  
  3677.         my $stamp_name = 'stamp-h';
  3678.         $stamp_name .= "${hdr_index}" if scalar (@config_headers) > 1;
  3679.  
  3680.             my $out_dir = dirname ($ch_sans_dir);
  3681.  
  3682.             $output_rules .=
  3683.           &file_contents ('remake-hdr',
  3684.                   ('FILES'              => join (' ', @files),
  3685.                    'CONFIG_HEADER'      => $cn_sans_dir,
  3686.                    'CONFIG_HEADER_IN'   => $ch_sans_dir,
  3687.                    'CONFIG_HEADER_FULL' => $one_fullname,
  3688.                    'STAMP'            => "$stamp_dir$stamp_name",
  3689.                    'SRC_STAMP'        => "$out_dir/$stamp_name"));
  3690.  
  3691.         &create ("${relative_dir}/${out_dir}/${stamp_name}.in");
  3692.         &require_file_with_conf_line ($config_header_line, $FOREIGN,
  3693.                       "${out_dir}/${stamp_name}.in");
  3694.  
  3695.         $distclean_config .= ' ' if $distclean_config;
  3696.         $distclean_config .= $cn_sans_dir;
  3697.     }
  3698.     }
  3699.  
  3700.     if ($distclean_config)
  3701.     {
  3702.     $output_rules .= &file_contents ('clean-hdr',
  3703.                      ('FILES' => $distclean_config));
  3704.     }
  3705.  
  3706.     # Set location of mkinstalldirs.
  3707.     &define_variable ('mkinstalldirs',
  3708.               ('$(SHELL) ' . $config_aux_dir . '/mkinstalldirs'));
  3709.  
  3710.     &am_line_error ('CONFIG_HEADER',
  3711.             "`CONFIG_HEADER' is an anachronism; now determined from `$configure_ac'")
  3712.     if &variable_defined ('CONFIG_HEADER');
  3713.  
  3714.     my $config_header = '';
  3715.     foreach my $one_name (@config_names)
  3716.     {
  3717.     # Generate CONFIG_HEADER define.
  3718.     my $one_hdr;
  3719.     if ($relative_dir eq dirname ($one_name))
  3720.     {
  3721.         $one_hdr = basename ($one_name);
  3722.     }
  3723.     else
  3724.     {
  3725.         $one_hdr = "\$(top_builddir)/${one_name}";
  3726.     }
  3727.  
  3728.     $config_header .= ' ' if $config_header;
  3729.     $config_header .= $one_hdr;
  3730.     }
  3731.     if ($config_header)
  3732.     {
  3733.     &define_variable ("CONFIG_HEADER", $config_header);
  3734.     }
  3735.  
  3736.     # Now look for other files in this directory which must be remade
  3737.     # by config.status, and generate rules for them.
  3738.     my @actual_other_files = ();
  3739.     foreach my $lfile (@other_input_files)
  3740.     {
  3741.         my ($file, $local);
  3742.     my (@inputs, @rewritten_inputs);
  3743.     my ($need_rewritten);
  3744.     if ($lfile =~ /^([^:]*):(.*)$/)
  3745.     {
  3746.         # This is the ":" syntax of AC_OUTPUT.
  3747.         $file = $1;
  3748.         $local = basename ($file);
  3749.         @inputs = split (':', $2);
  3750.         @rewritten_inputs = &rewrite_inputs_into_dependencies (1, @inputs);
  3751.         $need_rewritten = 1;
  3752.     }
  3753.     else
  3754.     {
  3755.         # Normal usage.
  3756.         $file = $lfile;
  3757.         $local = basename ($file);
  3758.         @inputs = ($file . '.in');
  3759.         @rewritten_inputs =
  3760.         &rewrite_inputs_into_dependencies (1, @inputs);
  3761.         $need_rewritten = 0;
  3762.     }
  3763.  
  3764.     # Make sure the dist directory for each input file is created.
  3765.     # We only have to do this at the topmost level though.  This
  3766.     # is a bit ugly but it easier than spreading out the logic,
  3767.     # especially in cases like AC_OUTPUT(foo/out:bar/in), where
  3768.     # there is no Makefile in bar/.
  3769.     if ($relative_dir eq '.')
  3770.     {
  3771.         foreach (@inputs)
  3772.         {
  3773.         $dist_dirs{dirname ($_)} = 1;
  3774.         }
  3775.     }
  3776.  
  3777.     # We skip any automake input files, as they are handled
  3778.     # elsewhere.  We also skip files that aren't in this
  3779.     # directory.  However, if the file's directory does not have a
  3780.     # Makefile, and we are currently doing `.', then we create a
  3781.     # rule to rebuild the file in the subdir.
  3782.     next if -f $file . '.am';
  3783.     my $fd = dirname ($file);
  3784.     if ($fd ne $relative_dir)
  3785.     {
  3786.         if ($relative_dir eq '.' && ! &is_make_dir ($fd))
  3787.         {
  3788.         $local = $file;
  3789.         }
  3790.         else
  3791.         {
  3792.         next;
  3793.         }
  3794.     }
  3795.  
  3796.     # Some users have been tempted to put `stamp-h' in the
  3797.     # AC_OUTPUT line.  This won't do the right thing, so we
  3798.     # explicitly fail here.
  3799.     if ($local eq 'stamp-h')
  3800.     {
  3801.         # FIXME: allow real filename.
  3802.         &am_conf_error ($configure_ac, $ac_output_line,
  3803.                 'stamp-h should not appear in AC_OUTPUT');
  3804.         next;
  3805.     }
  3806.  
  3807.     $output_rules .= ($local . ': '
  3808.               . '$(top_builddir)/config.status '
  3809.               . join (' ', @rewritten_inputs) . "\n"
  3810.               . "\t"
  3811.               . 'cd $(top_builddir) && CONFIG_FILES='
  3812.               . ($relative_dir eq '.' ? '' : '$(subdir)/')
  3813.                  . '$@' . ($need_rewritten
  3814.                     ? (':' . join (':', @inputs))
  3815.                     : '')
  3816.               . ' CONFIG_HEADERS= CONFIG_LINKS= $(SHELL) ./config.status'
  3817.               . "\n");
  3818.     push (@actual_other_files, $local);
  3819.  
  3820.     # Require all input files.
  3821.     &require_file_with_conf_line ($ac_output_line, $FOREIGN,
  3822.                       &rewrite_inputs_into_dependencies (0, @inputs));
  3823.     }
  3824.  
  3825.     # These files get removed by "make clean".
  3826.     &define_pretty_variable ('CONFIG_CLEAN_FILES', '', @actual_other_files);
  3827. }
  3828.  
  3829. # Handle C headers.
  3830. sub handle_headers
  3831. {
  3832.     my @r = &am_install_var ('-defaultdist', 'header', 'HEADERS', 'include',
  3833.                  'oldinclude', 'pkginclude',
  3834.                  'noinst', 'check');
  3835.     foreach (@r)
  3836.     {
  3837.     next unless /\.(.*)$/;
  3838.     &saw_extension ($1);
  3839.     }
  3840. }
  3841.  
  3842. sub handle_gettext
  3843. {
  3844.     return if ! $seen_gettext || $relative_dir ne '.';
  3845.  
  3846.     if (! &variable_defined ('SUBDIRS'))
  3847.     {
  3848.     &am_conf_error
  3849.         ("AM_GNU_GETTEXT used but SUBDIRS not defined");
  3850.     return;
  3851.     }
  3852.  
  3853.     my @subdirs = &variable_value_as_list ('SUBDIRS', 'all');
  3854.     &am_line_error ('SUBDIRS',
  3855.             "AM_GNU_GETTEXT used but `po' not in SUBDIRS")
  3856.     if ! grep ('po', @subdirs);
  3857.     &am_line_error ('SUBDIRS',
  3858.             "AM_GNU_GETTEXT used but `intl' not in SUBDIRS")
  3859.     if ! grep ('intl', @subdirs);
  3860.  
  3861.     &require_file_with_conf_line ($ac_gettext_line, $GNU, 'ABOUT-NLS');
  3862. }
  3863.  
  3864. # Handle footer elements.
  3865. sub handle_footer
  3866. {
  3867.     # NOTE don't use define_pretty_variable here, because
  3868.     # $contents{...} is already defined.
  3869.     $output_vars .= 'SOURCES = ' . variable_value ('SOURCES') . "\n\n"
  3870.       if variable_value ('SOURCES');
  3871.  
  3872.  
  3873.     &am_line_error ('.SUFFIXES',
  3874.             "use variable `SUFFIXES', not target `.SUFFIXES'")
  3875.       if target_defined ('.SUFFIXES');
  3876.  
  3877.     # Note: AIX 4.1 /bin/make will fail if any suffix rule appears
  3878.     # before .SUFFIXES.  So we make sure that .SUFFIXES appears before
  3879.     # anything else, by sticking it right after the default: target.
  3880.     $output_header .= ".SUFFIXES:\n";
  3881.     if (@suffixes || &variable_defined ('SUFFIXES'))
  3882.     {
  3883.     # Make sure suffixes has unique elements.  Sort them to ensure
  3884.     # the output remains consistent.  However, $(SUFFIXES) is
  3885.     # always at the start of the list, unsorted.  This is done
  3886.     # because make will choose rules depending on the ordering of
  3887.     # suffixes, and this lets the user have some control.  Push
  3888.     # actual suffixes, and not $(SUFFIXES).  Some versions of make
  3889.     # do not like variable substitutions on the .SUFFIXES line.
  3890.     my @user_suffixes = (&variable_defined ('SUFFIXES')
  3891.                  ? &variable_value_as_list ('SUFFIXES', '')
  3892.                  : ());
  3893.  
  3894.     my %suffixes = map { $_ => 1 } @suffixes;
  3895.     delete @suffixes{@user_suffixes};
  3896.  
  3897.     $output_header .= (".SUFFIXES: "
  3898.                . join (' ', @user_suffixes, sort keys %suffixes)
  3899.                . "\n");
  3900.     }
  3901.  
  3902.     $output_trailer .= file_contents ('footer');
  3903. }
  3904.  
  3905. # Deal with installdirs target.
  3906. sub handle_installdirs ()
  3907. {
  3908.     $output_rules .=
  3909.       &file_contents ('install',
  3910.               ('_am_installdirs'
  3911.                => variable_value ('_am_installdirs') || ''));
  3912. }
  3913.  
  3914.  
  3915. # Deal with all and all-am.
  3916. sub handle_all ($)
  3917. {
  3918.     my ($makefile) = @_;
  3919.  
  3920.     # Output `all-am'.
  3921.  
  3922.     # Put this at the beginning for the sake of non-GNU makes.  This
  3923.     # is still wrong if these makes can run parallel jobs.  But it is
  3924.     # right enough.
  3925.     unshift (@all, basename ($makefile));
  3926.  
  3927.     foreach my $one_name (@config_names)
  3928.     {
  3929.     push (@all, basename ($one_name))
  3930.         if dirname ($one_name) eq $relative_dir;
  3931.     }
  3932.  
  3933.     # Install `all' hooks.
  3934.     if (&target_defined ("all-local"))
  3935.     {
  3936.       push (@all, "all-local");
  3937.       &depend ('.PHONY', "all-local");
  3938.     }
  3939.  
  3940.     &pretty_print_rule ("all-am:", "\t\t", @all);
  3941.     &depend ('.PHONY', 'all-am', 'all');
  3942.  
  3943.  
  3944.     # Output `all'.
  3945.  
  3946.     my @local_headers = ();
  3947.     push @local_headers, '$(BUILT_SOURCES)'
  3948.       if &variable_defined ('BUILT_SOURCES');
  3949.     foreach my $one_name (@config_names)
  3950.       {
  3951.     push @local_headers, basename ($one_name)
  3952.       if dirname ($one_name) eq $relative_dir;
  3953.       }
  3954.  
  3955.     if (@local_headers)
  3956.       {
  3957.     # We need to make sure config.h is built before we recurse.
  3958.     # We also want to make sure that built sources are built
  3959.     # before any ordinary `all' targets are run.  We can't do this
  3960.     # by changing the order of dependencies to the "all" because
  3961.     # that breaks when using parallel makes.  Instead we handle
  3962.     # things explicitly.
  3963.     $output_all .= ("all: " . join (' ', @local_headers)
  3964.             . "\n\t"
  3965.             . '$(MAKE) $(AM_MAKEFLAGS) '
  3966.             . (&variable_defined ('SUBDIRS')
  3967.                ? 'all-recursive' : 'all-am')
  3968.             . "\n\n");
  3969.       }
  3970.     else
  3971.       {
  3972.     $output_all .= "all: " . (&variable_defined ('SUBDIRS')
  3973.                   ? 'all-recursive' : 'all-am') . "\n\n";
  3974.       }
  3975. }
  3976.  
  3977.  
  3978. # Handle check merge target specially.
  3979. sub do_check_merge_target
  3980. {
  3981.     if (&target_defined ('check-local'))
  3982.     {
  3983.     # User defined local form of target.  So include it.
  3984.     push (@check_tests, 'check-local');
  3985.     &depend ('.PHONY', 'check-local');
  3986.     }
  3987.  
  3988.     # In --cygnus mode, check doesn't depend on all.
  3989.     if ($cygnus_mode)
  3990.     {
  3991.     # Just run the local check rules.
  3992.     &pretty_print_rule ('check-am:', "\t\t", @check);
  3993.     }
  3994.     else
  3995.     {
  3996.     # The check target must depend on the local equivalent of
  3997.     # `all', to ensure all the primary targets are built.  Then it
  3998.     # must build the local check rules.
  3999.     $output_rules .= "check-am: all-am\n";
  4000.     &pretty_print_rule ("\t\$(MAKE) \$(AM_MAKEFLAGS)", "\t  ",
  4001.                 @check)
  4002.         if @check;
  4003.     }
  4004.     &pretty_print_rule ("\t\$(MAKE) \$(AM_MAKEFLAGS)", "\t  ",
  4005.             @check_tests)
  4006.     if @check_tests;
  4007.  
  4008.     &depend ('.PHONY', 'check', 'check-am');
  4009.     $output_rules .= ("check: "
  4010.               . (&variable_defined ('SUBDIRS')
  4011.              ? 'check-recursive' : 'check-am')
  4012.               . "\n");
  4013. }
  4014.  
  4015. # Handle all 'clean' targets.
  4016. sub handle_clean
  4017. {
  4018.     my %transform;
  4019.  
  4020.     # Don't include `MAINTAINER'; it is handled specially below.
  4021.     foreach my $name ('MOSTLY', '', 'DIST')
  4022.     {
  4023.       $transform{"${name}CLEAN"} = &variable_defined ("${name}CLEANFILES");
  4024.     }
  4025.  
  4026.     # Built sources are automatically removed by maintainer-clean.
  4027.     push (@maintainer_clean_files, '$(BUILT_SOURCES)')
  4028.     if &variable_defined ('BUILT_SOURCES');
  4029.     push (@maintainer_clean_files, '$(MAINTAINERCLEANFILES)')
  4030.     if &variable_defined ('MAINTAINERCLEANFILES');
  4031.  
  4032.     $output_rules .= &file_contents ('clean',
  4033.                      (%transform,
  4034.                       'MCFILES'
  4035.                       # Join with no space to avoid
  4036.                       # spurious `test -z' success at
  4037.                       # runtime.
  4038.                       => join ('', @maintainer_clean_files),
  4039.                       'MFILES'
  4040.                       # A space is required in the join here.
  4041.                       => join (' ', @maintainer_clean_files)));
  4042. }
  4043.  
  4044.  
  4045. # &depend ($CATEGORY, @DEPENDENDEES)
  4046. # ----------------------------------
  4047. # The target $CATEGORY depends on @DEPENDENDEES.
  4048. sub depend
  4049. {
  4050.     my ($category, @dependendees) = @_;
  4051.     {
  4052.       push (@{$dependencies{$category}}, @dependendees);
  4053.     }
  4054. }
  4055.  
  4056.  
  4057. # &target_cmp ($A, $B)
  4058. # --------------------
  4059. # Subroutine for &handle_factored_dependencies to let `.PHONY' be last.
  4060. sub target_cmp
  4061. {
  4062.     return 0
  4063.         if $a eq $b;
  4064.     return -1
  4065.         if $b eq '.PHONY';
  4066.     return 1
  4067.         if $a eq '.PHONY';
  4068.     return $a cmp $b;
  4069. }
  4070.  
  4071.  
  4072. # &handle_factored_dependencies ()
  4073. # --------------------------------
  4074. # Handle everything related to gathered targets.
  4075. sub handle_factored_dependencies
  4076. {
  4077.     # Reject bad hooks.
  4078.     foreach my $utarg ('uninstall-data-local', 'uninstall-data-hook',
  4079.                'uninstall-exec-local', 'uninstall-exec-hook')
  4080.     {
  4081.     if (&target_defined ($utarg))
  4082.     {
  4083.         my $x = $utarg;
  4084.         $x =~ s/(data|exec)-//;
  4085.         &am_line_error ($utarg, "use `$x', not `$utarg'");
  4086.     }
  4087.     }
  4088.  
  4089.     if (&target_defined ('install-local'))
  4090.     {
  4091.     &am_line_error ('install-local',
  4092.             "use `install-data-local' or `install-exec-local', "
  4093.             . "not `install-local'");
  4094.     }
  4095.  
  4096.     if (!defined $options{'no-installinfo'}
  4097.     && &target_defined ('install-info-local'))
  4098.     {
  4099.     &am_line_error ('install-info-local',
  4100.             "`install-info-local' target defined but "
  4101.             . "`no-installinfo' option not in use");
  4102.     }
  4103.  
  4104.     # Install the -local hooks.
  4105.     foreach (keys %dependencies)
  4106.     {
  4107.       # Hooks are installed on the -am targets.
  4108.       s/-am$// or next;
  4109.       if (&target_defined ("$_-local"))
  4110.     {
  4111.       depend ("$_-am", "$_-local");
  4112.       &depend ('.PHONY', "$_-local");
  4113.     }
  4114.     }
  4115.  
  4116.     # Install the -hook hooks.
  4117.     # FIXME: Why not be as liberal as we are with -local hooks?
  4118.     foreach ('install-exec', 'install-data')
  4119.     {
  4120.       if (&target_defined ("$_-hook"))
  4121.     {
  4122.       $actions{"$_-am"} .=
  4123.         ("\t\@\$(NORMAL_INSTALL)\n"
  4124.          . "\t" . '$(MAKE) $(AM_MAKEFLAGS) ' . "$_-hook\n");
  4125.     }
  4126.     }
  4127.  
  4128.     # All the required targets are phony.
  4129.     depend ('.PHONY', keys %required_targets);
  4130.  
  4131.     # Actually output gathered targets.
  4132.     foreach (sort target_cmp keys %dependencies)
  4133.     {
  4134.         # If there is nothing about this guy, skip it.
  4135.         next
  4136.       unless (@{$dependencies{$_}}
  4137.           || $actions{$_}
  4138.           || $required_targets{$_});
  4139.         &pretty_print_rule ("$_:", "\t",
  4140.                 uniq (sort @{$dependencies{$_}}));
  4141.     $output_rules .= $actions{$_}
  4142.       if defined $actions{$_};
  4143.         $output_rules .= "\n";
  4144.     }
  4145. }
  4146.  
  4147.  
  4148. # &handle_tests_dejagnu ()
  4149. # ------------------------
  4150. sub handle_tests_dejagnu
  4151. {
  4152.     push (@check_tests, 'check-DEJAGNU');
  4153.     $output_rules .= file_contents ('dejagnu');
  4154. }
  4155.  
  4156.  
  4157. # Handle TESTS variable and other checks.
  4158. sub handle_tests
  4159. {
  4160.     if (defined $options{'dejagnu'})
  4161.     {
  4162.         &handle_tests_dejagnu;
  4163.     }
  4164.     else
  4165.     {
  4166.     foreach my $c ('DEJATOOL', 'RUNTEST', 'RUNTESTFLAGS')
  4167.     {
  4168.         &am_line_error ($c,
  4169.                 "`$c' defined but `dejagnu' not in `AUTOMAKE_OPTIONS'")
  4170.           if &variable_defined ($c);
  4171.     }
  4172.     }
  4173.  
  4174.     if (&variable_defined ('TESTS'))
  4175.     {
  4176.     push (@check_tests, 'check-TESTS');
  4177.     $output_rules .= &file_contents ('check');
  4178.     }
  4179. }
  4180.  
  4181. # Handle Emacs Lisp.
  4182. sub handle_emacs_lisp
  4183. {
  4184.     my @elfiles = &am_install_var ('-candist', 'lisp', 'LISP',
  4185.                    'lisp', 'noinst');
  4186.  
  4187.     return if ! @elfiles;
  4188.  
  4189.     # Generate .elc files.
  4190.     my @elcfiles = map { $_ . 'c' } @elfiles;
  4191.     &define_pretty_variable ('ELCFILES', '', @elcfiles);
  4192.  
  4193.     push (@all, '$(ELCFILES)');
  4194.  
  4195.     &am_error ("`lisp_LISP' defined but `AM_PATH_LISPDIR' not in `$configure_ac'")
  4196.       if ! $seen_lispdir && &variable_defined ('lisp_LISP');
  4197.  
  4198.     &require_file_with_conf_line ('AM_PATH_LISPDIR', $FOREIGN, 'elisp-comp');
  4199. }
  4200.  
  4201. # Handle Python
  4202. sub handle_python
  4203. {
  4204.     my @pyfiles = &am_install_var ('-defaultdist', 'python', 'PYTHON',
  4205.                    'python', 'noinst');
  4206.     return if ! @pyfiles;
  4207.  
  4208.     # Found some python.
  4209.     &am_error ("`python_PYTHON' defined but `AM_PATH_PYTHON' not in `$configure_ac'")
  4210.     if ! $seen_pythondir && &variable_defined ('python_PYTHON');
  4211.  
  4212.     &require_file_with_conf_line ('AM_PATH_PYTHON', $FOREIGN, 'py-compile');
  4213.     &define_variable ('py_compile', $config_aux_dir . '/py-compile');
  4214. }
  4215.  
  4216. # Handle Java.
  4217. sub handle_java
  4218. {
  4219.     my @sourcelist = &am_install_var ('-candist',
  4220.                       'java', 'JAVA',
  4221.                       'java', 'noinst', 'check');
  4222.     return if ! @sourcelist;
  4223.  
  4224.     my %valid = &am_primary_prefixes ('JAVA', 1,
  4225.                       'java', 'noinst', 'check');
  4226.  
  4227.     my $dir;
  4228.     foreach my $curs (keys %valid)
  4229.     {
  4230.     if (! &variable_defined ($curs . '_JAVA') || $curs eq 'EXTRA')
  4231.     {
  4232.         next;
  4233.     }
  4234.  
  4235.     if (defined $dir)
  4236.     {
  4237.         &am_line_error ($curs . '_JAVA',
  4238.                 "multiple _JAVA primaries in use");
  4239.     }
  4240.     $dir = $curs;
  4241.     }
  4242.  
  4243.     push (@all, 'class' . $dir . '.stamp');
  4244. }
  4245.  
  4246.  
  4247. # Handle some of the minor options.
  4248. sub handle_minor_options
  4249. {
  4250.     if (defined $options{'readme-alpha'})
  4251.     {
  4252.     if ($relative_dir eq '.')
  4253.     {
  4254.         if ($package_version !~ /^$GNITS_VERSION_PATTERN$/)
  4255.         {
  4256.         # FIXME: allow real filename.
  4257.         &am_conf_line_error ($configure_ac,
  4258.                      $package_version_line,
  4259.                      "version `$package_version' doesn't follow Gnits standards");
  4260.         }
  4261.         elsif (defined $1 && -f 'README-alpha')
  4262.         {
  4263.         # This means we have an alpha release.  See
  4264.         # GNITS_VERSION_PATTERN for details.
  4265.         &require_file ($FOREIGN, 'README-alpha');
  4266.         }
  4267.     }
  4268.     }
  4269. }
  4270.  
  4271. ################################################################
  4272.  
  4273. my %make_list;
  4274.  
  4275. # &scan_autoconf_config_files ($CONFIG-FILES)
  4276. # -------------------------------------------
  4277. # Study $CONFIG-FILES which is the first argument to AC_CONFIG_FILES
  4278. # (or AC_OUTPUT).
  4279. sub scan_autoconf_config_files
  4280. {
  4281.     my ($config_files) = @_;
  4282.     # Look at potential Makefile.am's.
  4283.     foreach (split ' ', $config_files)
  4284.     {
  4285.         # Must skip empty string for Perl 4.
  4286.         next if $_ eq "\\" || $_ eq '';
  4287.  
  4288.         # Handle $local:$input syntax.  Note that we ignore
  4289.         # every input file past the first, though we keep
  4290.         # those around for later.
  4291.         my ($local, $input, @rest) = split (/:/);
  4292.         if (! $input)
  4293.         {
  4294.             $input = $local;
  4295.         }
  4296.         else
  4297.         {
  4298.             # FIXME: should be error if .in is missing.
  4299.             $input =~ s/\.in$//;
  4300.         }
  4301.  
  4302.         if (-f $input . '.am')
  4303.         {
  4304.             # We have a file that automake should generate.
  4305.             $make_list{$input} = join (':', ($local, @rest));
  4306.         }
  4307.         else
  4308.         {
  4309.             # We have a file that automake should cause to be
  4310.             # rebuilt, but shouldn't generate itself.
  4311.             push (@other_input_files, $_);
  4312.         }
  4313.     }
  4314. }
  4315.  
  4316.  
  4317. # &scan_autoconf_traces ($FILENAME)
  4318. # ---------------------------------
  4319. # FIXME: For the time being, we don't care about the FILENAME.
  4320. sub scan_autoconf_traces
  4321. {
  4322.     my ($filename) = @_;
  4323.  
  4324.     my $traces = "$ENV{amtraces} ";
  4325.  
  4326.     $traces .= ' -t AC_CONFIG_FILES';
  4327.     $traces .= ' -t AC_LIBSOURCE';
  4328.     $traces .= ' -t AC_SUBST';
  4329.  
  4330.     my $tracefh = new IO::File ("$traces |");
  4331.     if (! $tracefh)
  4332.     {
  4333.     die "$me: couldn't open `$traces': $!\n";
  4334.     }
  4335.     print "$me: reading $traces\n" if $verbose;
  4336.  
  4337.     while ($_ = $tracefh->getline)
  4338.     {
  4339.         chomp;
  4340.         my ($file, $line, $macro, @args) = split /:/;
  4341.     my $here = "$file:$line";
  4342.  
  4343.     # Alphabetical ordering please.
  4344.         if ($macro eq 'AC_CONFIG_FILES')
  4345.     {
  4346.         # Look at potential Makefile.am's.
  4347.         &scan_autoconf_config_files ($args[0]);
  4348.     }
  4349.         elsif ($macro eq 'AC_LIBSOURCE')
  4350.     {
  4351.         my $source = "$args[0].c";
  4352.         # We should actually also `close' the sources: getopt.c
  4353.         # wants getopt.h etc.  But actually it should be done in the
  4354.         # macro itself, i.e., we have to first fix Autoconf to extend
  4355.         # _AC_LIBOBJ_DECL and use it the in various macros.
  4356.         if (!defined $libsources{$source})
  4357.             {
  4358.             print STDERR "traces: discovered $source\n";
  4359.             $libsources{$source} = $here;
  4360.             }
  4361.     }
  4362.         elsif ($macro eq 'AC_SUBST')
  4363.     {
  4364.         if (!defined $configure_vars{$args[0]})
  4365.             {
  4366.             print STDERR "traces: discovered AC_SUBST($args[0])\n";
  4367.             $configure_vars{$args[0]} = $here;
  4368.             }
  4369.     }
  4370.     }
  4371.  
  4372.     $tracefh->close
  4373.     || die "$me: close: $traces: $!\n";
  4374. }
  4375.  
  4376.  
  4377. # &scan_one_autoconf_file ($FILENAME)
  4378. # -----------------------------------
  4379. # Scan one file for interesting things.  Subroutine of
  4380. # &scan_autoconf_files.
  4381. sub scan_one_autoconf_file
  4382. {
  4383.     my ($filename) = @_;
  4384.  
  4385.     my $configfh = new IO::File ("< $filename");
  4386.     if (! $configfh)
  4387.     {
  4388.     die "$me: couldn't open `$filename': $!\n";
  4389.     }
  4390.     print "$me: reading $filename\n" if $verbose;
  4391.  
  4392.     my ($in_ac_output, $in_ac_replace) = (0, 0);
  4393.     while ($_ = $configfh->getline)
  4394.     {
  4395.     # Remove comments from current line.
  4396.     s/\bdnl\b.*$//;
  4397.     s/\#.*$//;
  4398.  
  4399.     # Skip macro definitions.  Otherwise we might be confused into
  4400.     # thinking that a macro that was only defined was actually
  4401.     # used.
  4402.     next if /AC_DEFUN/;
  4403.  
  4404.     # Follow includes.  This is a weirdness commonly in use at
  4405.     # Cygnus and hopefully nowhere else.
  4406.     if (/sinclude\((.*)\)/ && -f $1)
  4407.     {
  4408.         # $_ being local, if we don't preserve it, when coming
  4409.         # back we will have $_ undefined, which is bad for the
  4410.         # the rest of this routine.
  4411.         my $underscore = $_;
  4412.         &scan_one_autoconf_file ($1);
  4413.         $_ = $underscore;
  4414.     }
  4415.  
  4416.     # Populate libobjs array.
  4417.     if (/AC_FUNC_ALLOCA/)
  4418.     {
  4419.         $libsources{'alloca.c'} = 1;
  4420.     }
  4421.     elsif (/AC_FUNC_GETLOADAVG/)
  4422.     {
  4423.         $libsources{'getloadavg.c'} = 1;
  4424.     }
  4425.     elsif (/AC_FUNC_MEMCMP/)
  4426.     {
  4427.         $libsources{'memcmp.c'} = 1;
  4428.     }
  4429.     elsif (/AC_STRUCT_ST_BLOCKS/)
  4430.     {
  4431.         $libsources{'fileblocks.c'} = 1;
  4432.     }
  4433.     elsif (/A[CM]_REPLACE_GNU_GETOPT/)
  4434.     {
  4435.         $libsources{'getopt.c'} = 1;
  4436.         $libsources{'getopt1.c'} = 1;
  4437.     }
  4438.     elsif (/AM_FUNC_STRTOD/)
  4439.     {
  4440.         $libsources{'strtod.c'} = 1;
  4441.     }
  4442.     elsif (/AM_WITH_REGEX/)
  4443.     {
  4444.         $libsources{'rx.c'} = 1;
  4445.         $libsources{'rx.h'} = 1;
  4446.         $libsources{'regex.c'} = 1;
  4447.         $libsources{'regex.h'} = 1;
  4448.     }
  4449.     elsif (/AC_FUNC_MKTIME/)
  4450.     {
  4451.         $libsources{'mktime.c'} = 1;
  4452.     }
  4453.     elsif (/AM_FUNC_ERROR_AT_LINE/)
  4454.     {
  4455.         $libsources{'error.c'} = 1;
  4456.         $libsources{'error.h'} = 1;
  4457.     }
  4458.     elsif (/AM_FUNC_OBSTACK/)
  4459.     {
  4460.         $libsources{'obstack.c'} = 1;
  4461.         $libsources{'obstack.h'} = 1;
  4462.     }
  4463.     elsif (/LIBOBJS="(.*)\s+\$LIBOBJS"/
  4464.            || /LIBOBJS="\$LIBOBJS\s+(.*)"/)
  4465.     {
  4466.         foreach my $libobj_iter (split (' ', $1))
  4467.         {
  4468.         if ($libobj_iter =~ /^(.*)\.o(bj)?$/
  4469.             || $libobj_iter =~ /^(.*)\.\$ac_objext$/
  4470.             || $libobj_iter =~ /^(.*)\.\$\{ac_objext\}$/)
  4471.         {
  4472.             $libsources{$1 . '.c'} = 1;
  4473.         }
  4474.         }
  4475.     }
  4476.     elsif (/AC_LIBOBJ\(([^)]+)\)/)
  4477.     {
  4478.         $libsources{"$1.c"} = 1;
  4479.     }
  4480.         elsif (/AC_LIBSOURCE\(([^)]+)\)/)
  4481.     {
  4482.         $libsources{&unquote_m4_arg ($1)} = 1;
  4483.     }
  4484.         elsif (/AC_LIBSOURCES\(([^)]+)\)/)
  4485.     {
  4486.         foreach my $lc_iter (split (/[, ]+/, &unquote_m4_arg ($1)))
  4487.         {
  4488.         $libsources{$lc_iter} = 1;
  4489.         }
  4490.     }
  4491.  
  4492.     if (! $in_ac_replace && s/AC_REPLACE_FUNCS\s*\(\[?//)
  4493.     {
  4494.         $in_ac_replace = 1;
  4495.     }
  4496.     if ($in_ac_replace)
  4497.     {
  4498.         $in_ac_replace = 0 if s/[\]\)].*$//;
  4499.         # Remove trailing backslash.
  4500.         s/\\$//;
  4501.         foreach (split)
  4502.         {
  4503.         # Need to skip empty elements for Perl 4.
  4504.         next if $_ eq '';
  4505.         $libsources{$_ . '.c'} = 1;
  4506.         }
  4507.     }
  4508.  
  4509.     if (/$obsolete_rx/o)
  4510.     {
  4511.         my $hint = '';
  4512.         if ($obsolete_macros{$1} ne '')
  4513.         {
  4514.         $hint = '; ' . $obsolete_macros{$1};
  4515.         }
  4516.         &am_conf_line_error ($filename, $., "`$1' is obsolete$hint");
  4517.     }
  4518.  
  4519.     # Process the AC_OUTPUT and AC_CONFIG_FILES macros.
  4520.     if (! $in_ac_output && s/AC_(OUTPUT|CONFIG_FILES)\s*\(\[?//)
  4521.     {
  4522.         $in_ac_output = 1;
  4523.         $ac_output_line = $.;
  4524.     }
  4525.     if ($in_ac_output)
  4526.     {
  4527.         my $closing = 0;
  4528.         if (s/[\]\),].*$//)
  4529.         {
  4530.         $in_ac_output = 0;
  4531.         $closing = 1;
  4532.         }
  4533.  
  4534.         # Look at potential Makefile.am's.
  4535.         &scan_autoconf_config_files ($_);
  4536.  
  4537.         if ($closing
  4538.         && scalar keys %make_list == 0
  4539.         && @other_input_files == 0)
  4540.         {
  4541.         &am_conf_line_error ($filename, $ac_output_line,
  4542.                      "No files mentioned in `AC_OUTPUT'");
  4543.         exit 1;
  4544.         }
  4545.     }
  4546.  
  4547.     if (/$AC_CONFIG_AUX_DIR_PATTERN/o)
  4548.     {
  4549.         @config_aux_path = &unquote_m4_arg ($1);
  4550.         $config_aux_dir_set_in_configure_in = 1;
  4551.     }
  4552.  
  4553.     # Check for ansi2knr.
  4554.     $am_c_prototypes = 1 if /AM_C_PROTOTYPES/;
  4555.  
  4556.     if (/AC_OBJEXT/)
  4557.     {
  4558.         $seen_objext = 1;
  4559.         $configure_vars{'OBJEXT'} = $filename . ':' . $.;
  4560.     }
  4561.  
  4562.     # Check for `-c -o' code.
  4563.     $seen_cc_c_o = 1 if /AM_PROG_CC_C_O/;
  4564.  
  4565.     # Check for NLS support.
  4566.     if (/AM_GNU_GETTEXT/)
  4567.     {
  4568.         $seen_gettext = 1;
  4569.         $ac_gettext_line = $.;
  4570.     }
  4571.  
  4572.     # Handle configuration headers.  A config header of `[$1]'
  4573.     # means we are actually scanning AM_CONFIG_HEADER from
  4574.     # aclocal.m4.
  4575.     if (/A([CM])_CONFIG_HEADERS?\s*\((.*)\)/
  4576.         && $2 ne '[$1]')
  4577.     {
  4578.         &am_conf_line_error
  4579.          ($filename, $., "`automake requires `AM_CONFIG_HEADER', not `AC_CONFIG_HEADER'")
  4580.              if $1 eq 'C';
  4581.  
  4582.         $config_header_line = $.;
  4583.         foreach my $one_hdr (split (' ', &unquote_m4_arg ($2)))
  4584.         {
  4585.         push (@config_fullnames, $one_hdr);
  4586.         if ($one_hdr =~ /^([^:]+):(.+)$/)
  4587.         {
  4588.             push (@config_names, $1);
  4589.             push (@config_headers, $2);
  4590.         }
  4591.         else
  4592.         {
  4593.             push (@config_names, $one_hdr);
  4594.             push (@config_headers, $one_hdr . '.in');
  4595.         }
  4596.         }
  4597.     }
  4598.  
  4599.         # Handle AC_CANONICAL_*.  Always allow upgrading to
  4600.         # AC_CANONICAL_SYSTEM, but never downgrading.
  4601.     $seen_canonical = $AC_CANONICAL_HOST
  4602.         if ! $seen_canonical
  4603.         && (/AC_CANONICAL_HOST/ || /AC_CHECK_TOOL/);
  4604.         $seen_canonical = $AC_CANONICAL_SYSTEM if /AC_CANONICAL_SYSTEM/;
  4605.  
  4606.         # If using X, include some extra variable definitions.  NOTE
  4607.         # we don't want to force these into CFLAGS or anything,
  4608.         # because not all programs will necessarily use X.
  4609.     if (/AC_PATH_XTRA/)
  4610.       {
  4611.         foreach my $var ('X_CFLAGS', 'X_LIBS', 'X_EXTRA_LIBS',
  4612.                  'X_PRE_LIBS')
  4613.           {
  4614.         $configure_vars{$var} = $filename . ':' . $.
  4615.           }
  4616.       }
  4617.  
  4618.         # This macro handles several different things.
  4619.         if (/$AM_INIT_AUTOMAKE_PATTERN/o)
  4620.     {
  4621.         ($package_version = $1) =~ s/$AM_PACKAGE_VERSION_PATTERN/$1/o;
  4622.         $package_version_line = $.;
  4623.         $seen_init_automake = 1;
  4624.     }
  4625.  
  4626.     if (/AM_PROG_LEX/)
  4627.     {
  4628.         $configure_vars{'LEX'} = $filename . ':' . $.;
  4629.         $seen_decl_yytext = 1;
  4630.     }
  4631.     if (/AC_DECL_YYTEXT/ && $filename =~ /configure\.(ac|in)$/)
  4632.     {
  4633.         &am_conf_line_warning ($filename, $., "`AC_DECL_YYTEXT' is covered by `AM_PROG_LEX'");
  4634.     }
  4635.     if (/AC_PROG_LEX/ && $filename =~ /configure\.(ac|in)$/)
  4636.     {
  4637.          &am_conf_line_warning ($filename, $., "automake requires `AM_PROG_LEX', not `AC_PROG_LEX'");
  4638.     }
  4639.  
  4640.     if (/AC_PROG_(F77|YACC|RANLIB|CC|CXXCPP|CXX|LEX|AWK|CPP|LN_S)/)
  4641.     {
  4642.         $configure_vars{$1} = $filename . ':' . $.;
  4643.     }
  4644.     if (/$AC_CHECK_PATTERN/o)
  4645.     {
  4646.         $configure_vars{$3} = $filename . ':' . $.;
  4647.     }
  4648.     if (/$AM_MISSING_PATTERN/o
  4649.         && $1 ne 'ACLOCAL'
  4650.         && $1 ne 'AUTOCONF'
  4651.         && $1 ne 'AUTOMAKE'
  4652.         && $1 ne 'AUTOHEADER'
  4653.         # AM_INIT_AUTOMAKE is AM_MISSING_PROG'ing MAKEINFO.  But
  4654.         # we handle it elsewhere.
  4655.         && $1 ne 'MAKEINFO')
  4656.     {
  4657.         $configure_vars{$1} = $filename . ':' . $.;
  4658.     }
  4659.  
  4660.     # Explicitly avoid ANSI2KNR -- we AC_SUBST that in protos.m4,
  4661.     # but later define it elsewhere.  This is pretty hacky.  We
  4662.     # also explicitly avoid INSTALL_SCRIPT and some other
  4663.     # variables because they are defined in header-vars.am.
  4664.     # FIXME.
  4665.     if (/$AC_SUBST_PATTERN/o
  4666.         && $1 ne 'ANSI2KNR'
  4667.         && $1 ne 'INSTALL_SCRIPT'
  4668.         && $1 ne 'INSTALL_DATA')
  4669.     {
  4670.         $configure_vars{$1} = $filename . ':' . $.;
  4671.     }
  4672.  
  4673.         $seen_decl_yytext = 1 if /AC_DECL_YYTEXT/;
  4674.     if (/AM_MAINTAINER_MODE/)
  4675.     {
  4676.         $seen_maint_mode = 1;
  4677.         $configure_cond{'MAINTAINER_MODE'} = 1;
  4678.     }
  4679.  
  4680.         $seen_lispdir = 1 if /AM_PATH_LISPDIR/;
  4681.  
  4682.         if (/AM_PATH_PYTHON/)
  4683.       {
  4684.         $seen_pythondir = 1;
  4685.         $configure_vars{'pythondir'} = $filename . ':' . $.;
  4686.         $configure_vars{'PYTHON'} = $filename . ':' . $.;
  4687.       }
  4688.  
  4689.         if (/A(C|M)_PROG_LIBTOOL/)
  4690.     {
  4691.         # We're not ready for this yet.  People still use a
  4692.         # libtool with no AC_PROG_LIBTOOL.  Once that is the
  4693.         # dominant version we can reenable this code -- but next
  4694.         # time by mentioning the macro in %obsolete_macros, both
  4695.         # here and in aclocal.in.
  4696.  
  4697.         # if (/AM_PROG_LIBTOOL/)
  4698.         # {
  4699.         #     &am_conf_line_warning ($filename, $., "`AM_PROG_LIBTOOL' is obsolete, use `AC_PROG_LIBTOOL' instead");
  4700.         # }
  4701.         $seen_libtool = 1;
  4702.         $libtool_line = $.;
  4703.         $configure_vars{'LIBTOOL'} = $filename . ':' . $.;
  4704.         $configure_vars{'RANLIB'} = $filename . ':' . $.;
  4705.         $configure_vars{'CC'} = $filename . ':' . $.;
  4706.         # AC_PROG_LIBTOOL runs AC_CANONICAL_HOST.  Make sure we
  4707.         # never downgrade (if we've seen AC_CANONICAL_SYSTEM).
  4708.         $seen_canonical = $AC_CANONICAL_HOST if ! $seen_canonical;
  4709.     }
  4710.  
  4711.     $seen_multilib = 1 if (/AM_ENABLE_MULTILIB/);
  4712.  
  4713.     if (/$AM_CONDITIONAL_PATTERN/o)
  4714.     {
  4715.         $configure_cond{$1} = 1;
  4716.     }
  4717.  
  4718.     # Check for Fortran 77 intrinsic and run-time libraries.
  4719.     if (/AC_F77_LIBRARY_LDFLAGS/)
  4720.     {
  4721.         $configure_vars{'FLIBS'} = $filename . ':' . $.;
  4722.     }
  4723.     }
  4724.  
  4725.     $configfh->close;
  4726. }
  4727.  
  4728.  
  4729. # &scan_autoconf_files ()
  4730. # -----------------------
  4731. # Check whether we use `configure.ac' or `configure.in'.
  4732. # Scan it (and possibly `aclocal.m4') for interesting things.
  4733. # We must scan aclocal.m4 because there might be AC_SUBSTs and such there.
  4734. sub scan_autoconf_files
  4735. {
  4736.     # Reinitialize libsources here.  This isn't really necessary,
  4737.     # since we currently assume there is only one configure.ac.  But
  4738.     # that won't always be the case.
  4739.     %libsources = ();
  4740.  
  4741.     warn "$me: both `configure.ac' and `configure.in' present:"
  4742.          . " ignoring `configure.in'\n"
  4743.         if -f 'configure.ac' && -f 'configure.in';
  4744.     $configure_ac = 'configure.in'
  4745.         if -f 'configure.in';
  4746.     $configure_ac = 'configure.ac'
  4747.         if -f 'configure.ac';
  4748.     die "$me: `configure.ac' or `configure.in' is required\n"
  4749.         if !$configure_ac;
  4750.  
  4751.     &scan_one_autoconf_file ($configure_ac);
  4752.     &scan_one_autoconf_file ('aclocal.m4')
  4753.     if -f 'aclocal.m4';
  4754.  
  4755.     if (defined $ENV{'amtraces'})
  4756.     {
  4757.         warn '$me: Autoconf traces is an experimental feature';
  4758.         warn '$me: use at your own risks';
  4759.  
  4760.         &scan_autoconf_traces ($configure_ac);
  4761.     }
  4762.  
  4763.     # Set input and output files if not specified by user.
  4764.     if (! @input_files)
  4765.     {
  4766.     @input_files = sort keys %make_list;
  4767.     %output_files = %make_list;
  4768.     }
  4769.  
  4770.     @configure_input_files = sort keys %make_list;
  4771.  
  4772.     &am_conf_error ("`AM_INIT_AUTOMAKE' must be used")
  4773.     if ! $seen_init_automake;
  4774.  
  4775.     # Look for some files we need.  Always check for these.  This
  4776.     # check must be done for every run, even those where we are only
  4777.     # looking at a subdir Makefile.  We must set relative_dir so that
  4778.     # the file-finding machinery works.
  4779.     # FIXME: Is this broken because it needs dynamic scopes.
  4780.     # My tests seems to show it's not the case.
  4781.     $relative_dir = '.';
  4782.     &require_config_file ($FOREIGN, 'install-sh', 'mkinstalldirs', 'missing');
  4783.     &am_error ("`install.sh' is an anachronism; use `install-sh' instead")
  4784.         if -f $config_aux_path[0] . '/install.sh';
  4785.  
  4786.     &require_config_file ($FOREIGN, 'py-compile')
  4787.     if $seen_pythondir;
  4788.  
  4789.     # Preserve dist_common for later.
  4790.     $configure_dist_common = variable_value ('DIST_COMMON', 'TRUE') || '';
  4791. }
  4792.  
  4793. ################################################################
  4794.  
  4795. # Set up for Cygnus mode.
  4796. sub check_cygnus
  4797. {
  4798.     return unless $cygnus_mode;
  4799.  
  4800.     &set_strictness ('foreign');
  4801.     $options{'no-installinfo'} = 1;
  4802.     $options{'no-dependencies'} = 1;
  4803.     $use_dependencies = 0;
  4804.  
  4805.     if (! $seen_maint_mode)
  4806.     {
  4807.     &am_conf_error ("`AM_MAINTAINER_MODE' required when --cygnus specified");
  4808.     }
  4809. }
  4810.  
  4811. # Do any extra checking for GNU standards.
  4812. sub check_gnu_standards
  4813. {
  4814.     if ($relative_dir eq '.')
  4815.     {
  4816.     # In top level (or only) directory.
  4817.     &require_file ($GNU, 'INSTALL', 'NEWS', 'README', 'COPYING',
  4818.                'AUTHORS', 'ChangeLog');
  4819.     }
  4820.  
  4821.     if ($strictness >= $GNU
  4822.     && defined $options{'no-installman'})
  4823.     {
  4824.     &am_line_error ('AUTOMAKE_OPTIONS',
  4825.             "option `no-installman' disallowed by GNU standards");
  4826.     }
  4827.  
  4828.     if ($strictness >= $GNU
  4829.     && defined $options{'no-installinfo'})
  4830.     {
  4831.     &am_line_error ('AUTOMAKE_OPTIONS',
  4832.             "option `no-installinfo' disallowed by GNU standards");
  4833.     }
  4834. }
  4835.  
  4836. # Do any extra checking for GNITS standards.
  4837. sub check_gnits_standards
  4838. {
  4839.     if ($relative_dir eq '.')
  4840.     {
  4841.     # In top level (or only) directory.
  4842.     &require_file ($GNITS, 'THANKS');
  4843.     }
  4844. }
  4845.  
  4846. ################################################################
  4847. #
  4848. # Functions to handle files of each language.
  4849.  
  4850. # Each `lang_X_rewrite($DIRECTORY, $BASE, $EXT)' function follows a
  4851. # simple formula: Return value is $LANG_SUBDIR if the resulting object
  4852. # file should be in a subdir if the source file is, $LANG_PROCESS if
  4853. # file is to be dealt with, $LANG_IGNORE otherwise.
  4854.  
  4855. # Much of the actual processing is handled in
  4856. # handle_single_transform_list.  These functions exist so that
  4857. # auxiliary information can be recorded for a later cleanup pass.
  4858. # Note that the calls to these functions are computed, so don't bother
  4859. # searching for their precise names in the source.
  4860.  
  4861. # This is just a convenience function that can be used to determine
  4862. # when a subdir object should be used.
  4863. sub lang_sub_obj
  4864. {
  4865.     return defined $options{'subdir-objects'} ? $LANG_SUBDIR : $LANG_PROCESS;
  4866. }
  4867.  
  4868. # Rewrite a single C source file.
  4869. sub lang_c_rewrite
  4870. {
  4871.     my ($directory, $base, $ext) = @_;
  4872.  
  4873.     if (defined $options{'ansi2knr'} && $base =~ /_$/)
  4874.     {
  4875.     # FIXME: include line number in error.
  4876.     &am_error ("C source file `$base.c' would be deleted by ansi2knr rules");
  4877.     }
  4878.  
  4879.     my $r = $LANG_PROCESS;
  4880.     if (defined $options{'subdir-objects'})
  4881.     {
  4882.     $r = $LANG_SUBDIR;
  4883.     $base = $directory . '/' . $base;
  4884.  
  4885.     if (! $seen_cc_c_o)
  4886.     {
  4887.         # Only give error once.
  4888.         $seen_cc_c_o = 1;
  4889.         # FIXME: line number.
  4890.         &am_error ("C objects in subdir but `AM_PROG_CC_C_O' not in `$configure_ac'");
  4891.     }
  4892.  
  4893.     &require_config_file ($FOREIGN, 'compile');
  4894.     }
  4895.  
  4896.     $de_ansi_files{$base} = 1;
  4897.     return $r;
  4898. }
  4899.  
  4900. # Rewrite a single C++ source file.
  4901. sub lang_cxx_rewrite
  4902. {
  4903.     return &lang_sub_obj;
  4904. }
  4905.  
  4906. # Rewrite a single header file.
  4907. sub lang_header_rewrite
  4908. {
  4909.     # Header files are simply ignored.
  4910.     return $LANG_IGNORE;
  4911. }
  4912.  
  4913. # Rewrite a single yacc file.
  4914. sub lang_yacc_rewrite
  4915. {
  4916.     my ($directory, $base, $ext) = @_;
  4917.  
  4918.     my $r = &lang_sub_obj;
  4919.     (my $newext = $ext) =~ tr/y/c/;
  4920.     return ($r, $newext);
  4921. }
  4922.  
  4923. # Rewrite a single yacc++ file.
  4924. sub lang_yaccxx_rewrite
  4925. {
  4926.     my ($directory, $base, $ext) = @_;
  4927.  
  4928.     my $r = &lang_sub_obj;
  4929.     (my $newext = $ext) =~ tr/y/c/;
  4930.     return ($r, $newext);
  4931. }
  4932.  
  4933. # Rewrite a single lex file.
  4934. sub lang_lex_rewrite
  4935. {
  4936.     my ($directory, $base, $ext) = @_;
  4937.  
  4938.     my $r = &lang_sub_obj;
  4939.     (my $newext = $ext) =~ tr/l/c/;
  4940.     return ($r, $newext);
  4941. }
  4942.  
  4943. # Rewrite a single lex++ file.
  4944. sub lang_lexxx_rewrite
  4945. {
  4946.     my ($directory, $base, $ext) = @_;
  4947.  
  4948.     my $r = &lang_sub_obj;
  4949.     (my $newext = $ext) =~ tr/l/c/;
  4950.     return ($r, $newext);
  4951. }
  4952.  
  4953. # Rewrite a single assembly file.
  4954. sub lang_asm_rewrite
  4955. {
  4956.     return &lang_sub_obj;
  4957. }
  4958.  
  4959. # Rewrite a single Fortran 77 file.
  4960. sub lang_f77_rewrite
  4961. {
  4962.     return $LANG_PROCESS;
  4963. }
  4964.  
  4965. # Rewrite a single preprocessed Fortran 77 file.
  4966. sub lang_ppf77_rewrite
  4967. {
  4968.     return $LANG_PROCESS;
  4969. }
  4970.  
  4971. # Rewrite a single ratfor file.
  4972. sub lang_ratfor_rewrite
  4973. {
  4974.     return $LANG_PROCESS;
  4975. }
  4976.  
  4977. # Rewrite a single Objective C file.
  4978. sub lang_objc_rewrite
  4979. {
  4980.     return &lang_sub_obj;
  4981. }
  4982.  
  4983. # Rewrite a single Java file.
  4984. sub lang_java_rewrite
  4985. {
  4986.     return $LANG_SUBDIR;
  4987. }
  4988.  
  4989. # The lang_X_finish functions are called after all source file
  4990. # processing is done.  Each should handle defining rules for the
  4991. # language, etc.  A finish function is only called if a source file of
  4992. # the appropriate type has been seen.
  4993.  
  4994. sub lang_c_finish
  4995. {
  4996.     # Push all libobjs files onto de_ansi_files.  We actually only
  4997.     # push files which exist in the current directory, and which are
  4998.     # genuine source files.
  4999.     foreach my $file (keys %libsources)
  5000.     {
  5001.     if ($file =~ /^(.*)\.[cly]$/ && -f "$relative_dir/$file")
  5002.     {
  5003.         $de_ansi_files{$1} = 1;
  5004.     }
  5005.     }
  5006.  
  5007.     if (defined $options{'ansi2knr'} && keys %de_ansi_files)
  5008.     {
  5009.      # Make all _.c files depend on their corresponding .c files.
  5010.      my @objects;
  5011.      foreach my $base (sort keys %de_ansi_files)
  5012.      {
  5013.         # Each _.c file must depend on ansi2knr; otherwise it
  5014.         # might be used in a parallel build before it is built.
  5015.         # We need to support files in the srcdir and in the build
  5016.         # dir (because these files might be auto-generated.  But
  5017.         # we can't use $< -- some makes only define $< during a
  5018.         # suffix rule.
  5019.          $output_rules .= ($base . "_.c: $base.c \$(ANSI2KNR)\n\t"
  5020.                   . '$(CPP) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) '
  5021.                   . '`if test -f $(srcdir)/' . $base . '.c'
  5022.                   . '; then echo $(srcdir)/' . $base . '.c'
  5023.                   . '; else echo ' . $base . '.c; fi` '
  5024.                   . "| sed 's/^# \\([0-9]\\)/#line \\1/' "
  5025.                   . '| $(ANSI2KNR) > ' . $base . "_.c"
  5026.                   # If ansi2knr fails then we shouldn't
  5027.                   # create the _.c file
  5028.                   . " || rm -f ${base}_.c\n");
  5029.          push (@objects, $base . '_.$(OBJEXT)');
  5030.          push (@objects, $base . '_.lo')
  5031.           if $seen_libtool;
  5032.      }
  5033.  
  5034.      # Make all _.o (and _.lo) files depend on ansi2knr.
  5035.      # Use a sneaky little hack to make it print nicely.
  5036.      &pretty_print_rule ('', '', @objects, ':', '$(ANSI2KNR)');
  5037.     }
  5038. }
  5039.  
  5040. # This is a yacc helper which is called whenever we have decided to
  5041. # compile a yacc file.
  5042. sub lang_yacc_target_hook
  5043. {
  5044.     my ($self, $aggregate, $output, $input) = @_;
  5045.  
  5046.     my $flag = $aggregate . "_YFLAGS";
  5047.     if ((&variable_defined ($flag)
  5048.      && &variable_value ($flag) =~ /$DASH_D_PATTERN/o)
  5049.     || (&variable_defined ('YFLAGS')
  5050.         && &variable_value ('YFLAGS') =~ /$DASH_D_PATTERN/o))
  5051.     {
  5052.     (my $output_base = $output) =~ s/\..*$//;
  5053.     my $header = $output_base . '.h';
  5054.  
  5055.     # Found a `-d' that applies to the compilation of this file.
  5056.     # Add a dependency for the generated header file, and arrange
  5057.     # for that file to be included in the distribution.
  5058.     # FIXME: this fails for `nodist_*_SOURCES'.
  5059.     $output_rules .= "${header}: $output\n";
  5060.     &push_dist_common ($header);
  5061.     # If the files are built in the build directory, then we want
  5062.     # to remove them with `make clean'.  If they are in srcdir
  5063.     # they shouldn't be touched.  However, we can't determine this
  5064.     # statically, and the GNU rules say that yacc/lex output files
  5065.     # should be removed by maintainer-clean.  So that's what we
  5066.     # do.
  5067.     push (@maintainer_clean_files, $header);
  5068.     }
  5069. }
  5070.  
  5071. # This is a helper for both lex and yacc.
  5072. sub yacc_lex_finish_helper
  5073. {
  5074.     return if defined $language_scratch{'lex-yacc-done'};
  5075.     $language_scratch{'lex-yacc-done'} = 1;
  5076.  
  5077.     # If there is more than one distinct yacc (resp lex) source file
  5078.     # in a given directory, then the `ylwrap' program is required to
  5079.     # allow parallel builds to work correctly.  FIXME: for now, no
  5080.     # line number.
  5081.     &require_config_file ($FOREIGN, 'ylwrap');
  5082.     if ($config_aux_dir_set_in_configure_in)
  5083.     {
  5084.     &define_variable ('YLWRAP', $config_aux_dir . "/ylwrap");
  5085.     }
  5086.     else
  5087.     {
  5088.     &define_variable ('YLWRAP', '$(top_srcdir)/ylwrap');
  5089.     }
  5090. }
  5091.  
  5092. sub lang_yacc_finish
  5093. {
  5094.     return if defined $language_scratch{'yacc-done'};
  5095.     $language_scratch{'yacc-done'} = 1;
  5096.  
  5097.     if (&variable_defined ('YACCFLAGS'))
  5098.     {
  5099.     &am_line_error ('YACCFLAGS',
  5100.             "`YACCFLAGS' obsolete; use `YFLAGS' instead");
  5101.     }
  5102.  
  5103.     if (count_files_for_language ('yacc') > 1)
  5104.     {
  5105.     &yacc_lex_finish_helper;
  5106.     }
  5107. }
  5108.  
  5109.  
  5110. sub lang_lex_finish
  5111. {
  5112.     return if defined $language_scratch{'lex-done'};
  5113.     $language_scratch{'lex-done'} = 1;
  5114.  
  5115.     if (! $seen_decl_yytext)
  5116.     {
  5117.     &am_error ("lex source seen but `AC_DECL_YYTEXT' not in `$configure_ac'");
  5118.     }
  5119.  
  5120.     if (count_files_for_language ('lex') > 1)
  5121.     {
  5122.     &yacc_lex_finish_helper;
  5123.     }
  5124. }
  5125.  
  5126.  
  5127. # Given a hash table of linker names, pick the name that has the most
  5128. # precedence.  This is lame, but something has to have global
  5129. # knowledge in order to eliminate the conflict.  Add more linkers as
  5130. # required.
  5131. sub resolve_linker
  5132. {
  5133.     my (%linkers) = @_;
  5134.  
  5135.     return 'GCJLINK'
  5136.     if defined $linkers{'GCJLINK'};
  5137.     return 'CXXLINK'
  5138.     if defined $linkers{'CXXLINK'};
  5139.     return 'F77LINK'
  5140.     if defined $linkers{'F77LINK'};
  5141.     return 'OBJCLINK'
  5142.         if defined $linkers{'OBJCLINK'};
  5143.     return 'LINK';
  5144. }
  5145.  
  5146. # Called to indicate that an extension was used.
  5147. sub saw_extension
  5148. {
  5149.     my ($ext) = @_;
  5150.     if (! defined $extension_seen{$ext})
  5151.     {
  5152.     $extension_seen{$ext} = 1;
  5153.     }
  5154.     else
  5155.     {
  5156.     ++$extension_seen{$ext};
  5157.     }
  5158. }
  5159.  
  5160. # Return the number of files seen for a given language.  Knows about
  5161. # special cases we care about.  FIXME: this is hideous.  We need
  5162. # something that involves real language objects.  For instance yacc
  5163. # and yaccxx could both derive from a common yacc class which would
  5164. # know about the strange ylwrap requirement.  (Or better yet we could
  5165. # just not support legacy yacc!)
  5166. sub count_files_for_language
  5167. {
  5168.     my ($name) = @_;
  5169.  
  5170.     my @names;
  5171.     if ($name eq 'yacc' || $name eq 'yaccxx')
  5172.     {
  5173.     @names = ('yacc', 'yaccxx');
  5174.     }
  5175.     elsif ($name eq 'lex' || $name eq 'lexxx')
  5176.     {
  5177.     @names = ('lex', 'lexxx');
  5178.     }
  5179.     else
  5180.     {
  5181.     @names = ($name);
  5182.     }
  5183.  
  5184.     my $r = 0;
  5185.     foreach $name (@names)
  5186.     {
  5187.     my $lang = $languages{$name};
  5188.     foreach my $ext (@{$lang->extensions})
  5189.     {
  5190.         $r += $extension_seen{$ext}
  5191.             if defined $extension_seen{$ext};
  5192.     }
  5193.     }
  5194.  
  5195.     return $r
  5196. }
  5197.  
  5198. # Called to ask whether source files have been seen . If HEADERS is 1,
  5199. # headers can be included.
  5200. sub saw_sources_p
  5201. {
  5202.     my ($headers) = @_;
  5203.  
  5204.     # count all the sources
  5205.     my $count = 0;
  5206.     foreach my $val (values %extension_seen)
  5207.     {
  5208.     $count += $val;
  5209.     }
  5210.  
  5211.     if (!$headers)
  5212.     {
  5213.     $count -= count_files_for_language ('header');
  5214.     }
  5215.  
  5216.     return $count > 0;
  5217. }
  5218.  
  5219.  
  5220. # register_language (%ATTRIBUTE)
  5221. # ------------------------------
  5222. # Register a single language.
  5223. # Each %ATTRIBUTE is of the form ATTRIBUTE => VALUE.
  5224. sub register_language (%)
  5225. {
  5226.     my (%option) = @_;
  5227.  
  5228.     # Set the defaults.
  5229.     $option{'ansi'} = 0
  5230.       unless defined $option{'ansi'};
  5231.     $option{'autodep'} = 'no'
  5232.       unless defined $option{'autodep'};
  5233.     $option{'linker'} = ''
  5234.       unless defined $option{'linker'};
  5235.     $option{'define_flag'} = 1
  5236.       unless defined $option{'define_flag'};
  5237.  
  5238.     my $lang = new Language (%option);
  5239.  
  5240.     # Fill indexes.
  5241.     grep ($extension_map{$_} = $lang->name, @{$lang->extensions});
  5242.     $languages{$lang->name} = $lang;
  5243. }
  5244.  
  5245. # This function is used to find a path from a user-specified suffix to
  5246. # `o' or to some other suffix we recognize internally, eg `cc'.
  5247. sub derive_suffix
  5248. {
  5249.     my ($source_ext) = @_;
  5250.  
  5251.     # FIXME: hard-coding `o' is a mistake.  Doing something
  5252.     # intelligent is harder.
  5253.     while (! $extension_map{$source_ext}
  5254.        && $source_ext ne 'o'
  5255.        && defined $suffix_rules{$source_ext})
  5256.     {
  5257.     $source_ext = $suffix_rules{$source_ext};
  5258.     }
  5259.  
  5260.     return $source_ext;
  5261. }
  5262.  
  5263.  
  5264. ################################################################
  5265.  
  5266. # Pretty-print something.  HEAD is what should be printed at the
  5267. # beginning of the first line, FILL is what should be printed at the
  5268. # beginning of every subsequent line.
  5269. sub pretty_print_internal
  5270. {
  5271.     my ($head, $fill, @values) = @_;
  5272.  
  5273.     my $column = length ($head);
  5274.     my $result = $head;
  5275.  
  5276.     # Fill length is number of characters.  However, each Tab
  5277.     # character counts for eight.  So we count the number of Tabs and
  5278.     # multiply by 7.
  5279.     my $fill_length = length ($fill);
  5280.     $fill_length += 7 * ($fill =~ tr/\t/\t/d);
  5281.  
  5282.     foreach (@values)
  5283.     {
  5284.     # "71" because we also print a space.
  5285.     if ($column + length ($_) > 71)
  5286.     {
  5287.         $result .= " \\\n" . $fill;
  5288.         $column = $fill_length;
  5289.     }
  5290.     $result .= ' ' if $result =~ /\S\z/;
  5291.     $result .= $_;
  5292.     $column += length ($_) + 1;
  5293.     }
  5294.  
  5295.     $result .= "\n";
  5296.     return $result;
  5297. }
  5298.  
  5299. # Pretty-print something and append to output_vars.
  5300. sub pretty_print
  5301. {
  5302.     $output_vars .= &pretty_print_internal (@_);
  5303. }
  5304.  
  5305. # Pretty-print something and append to output_rules.
  5306. sub pretty_print_rule
  5307. {
  5308.     $output_rules .= &pretty_print_internal (@_);
  5309. }
  5310.  
  5311.  
  5312. ################################################################
  5313.  
  5314.  
  5315. # $STRING
  5316. # &conditional_string(@COND-STACK)
  5317. # --------------------------------
  5318. # Build a string which denotes the conditional in @COND-STACK.  Some
  5319. # simplifications are done: `TRUE' entries are elided, and any `FALSE'
  5320. # entry results in a return of `FALSE'.
  5321. sub conditional_string
  5322. {
  5323.   my (@stack) = @_;
  5324.  
  5325.   if (grep (/^FALSE$/, @stack))
  5326.     {
  5327.       return 'FALSE';
  5328.     }
  5329.   else
  5330.     {
  5331.       return join (' ', uniq sort grep (!/^TRUE$/, @stack));
  5332.     }
  5333. }
  5334.  
  5335.  
  5336. # $BOOLEAN
  5337. # &conditional_true_when ($COND, $WHEN)
  5338. # -------------------------------------
  5339. # See if a conditional is true.  Both arguments are conditional
  5340. # strings.  This returns true if the first conditional is true when
  5341. # the second conditional is true.
  5342. # For instance with $COND = `BAR FOO', and $WHEN = `BAR BAZ FOO',
  5343. # obviously return 1, and 0 when, for instance, $WHEN = `FOO'.
  5344. sub conditional_true_when ($$)
  5345. {
  5346.     my ($cond, $when) = @_;
  5347.  
  5348.     # Make a hash holding all the values from $WHEN.
  5349.     my %cond_vals = map { $_ => 1 } split (' ', $when);
  5350.  
  5351.     # Check each component of $cond, which looks `COND1 COND2'.
  5352.     foreach my $comp (split (' ', $cond))
  5353.     {
  5354.     # TRUE is always true.
  5355.     next if $comp eq 'TRUE';
  5356.     return 0 if ! defined $cond_vals{$comp};
  5357.     }
  5358.  
  5359.     return 1;
  5360. }
  5361.  
  5362.  
  5363. # $BOOLEAN
  5364. # &conditional_is_redundant ($COND, @WHENS)
  5365. # ----------------------------------------
  5366. # Determine whether $COND is redundant with respect to @WHENS.
  5367. #
  5368. # Returns true if $COND is true for any of the conditions in @WHENS.
  5369. #
  5370. # If there are no @WHENS, then behave as if @WHENS contained a single empty
  5371. # condition.
  5372. sub conditional_is_redundant ($@)
  5373. {
  5374.     my ($cond, @whens) = @_;
  5375.  
  5376.     if (@whens == 0)
  5377.     {
  5378.     return 1 if conditional_true_when ($cond, "");
  5379.     }
  5380.     else
  5381.     {
  5382.     foreach my $when (@whens)
  5383.     {
  5384.         return 1 if conditional_true_when ($cond, $when);
  5385.     }
  5386.     }
  5387.  
  5388.     return 0;
  5389. }
  5390.  
  5391.  
  5392. # $NEGATION
  5393. # condition_negate ($COND)
  5394. # ------------------------
  5395. sub condition_negate ($)
  5396. {
  5397.     my ($cond) = @_;
  5398.  
  5399.     $cond =~ s/TRUE$/TRUEO/;
  5400.     $cond =~ s/FALSE$/TRUE/;
  5401.     $cond =~ s/TRUEO$/FALSE/;
  5402.  
  5403.     return $cond;
  5404. }
  5405.  
  5406.  
  5407. # Compare condition names.
  5408. # Issue them in alphabetical order, foo_TRUE before foo_FALSE.
  5409. sub by_condition
  5410. {
  5411.     # Be careful we might be comparing `' or `#'.
  5412.     $a =~ /^(.*)_(TRUE|FALSE)$/;
  5413.     my ($aname, $abool) = ($1 || '', $2 || '');
  5414.     $b =~ /^(.*)_(TRUE|FALSE)$/;
  5415.     my ($bname, $bbool) = ($1 || '', $2 || '');
  5416.     return ($aname cmp $bname
  5417.         # Don't bother with IFs, given that TRUE is after FALSE
  5418.         # just cmp in the reverse order.
  5419.         || $bbool cmp $abool
  5420.         # Just in case...
  5421.         || $a cmp $b);
  5422. }
  5423.  
  5424.  
  5425. # &make_condition (@CONDITIONS)
  5426. # -----------------------------
  5427. # Transform a list of conditions (themselves can be an internal list
  5428. # of conditions, e.g., @CONDITIONS = ('cond1 cond2', 'cond3')) into a
  5429. # Make conditional (a pattern for AC_SUBST).
  5430. # Correctly returns the empty string when there are no conditions.
  5431. sub make_condition
  5432. {
  5433.     my $res = conditional_string (@_);
  5434.  
  5435.     # There are no conditions.
  5436.     if ($res eq '')
  5437.       {
  5438.     # Nothing to do.
  5439.       }
  5440.     # It's impossible.
  5441.     elsif ($res eq 'FALSE')
  5442.       {
  5443.     $res = '#';
  5444.       }
  5445.     # Build it.
  5446.     else
  5447.       {
  5448.     $res = '@' . $res . '@';
  5449.     $res =~ s/ /@@/g;
  5450.       }
  5451.  
  5452.     return $res;
  5453. }
  5454.  
  5455.  
  5456.  
  5457. ## ------------------------------ ##
  5458. ## Handling the condition stack.  ##
  5459. ## ------------------------------ ##
  5460.  
  5461.  
  5462. # $COND_STRING
  5463. # cond_stack_if ($NEGATE, $COND, $WHERE)
  5464. # --------------------------------------
  5465. sub cond_stack_if ($$$)
  5466. {
  5467.   my ($negate, $cond, $where) = @_;
  5468.  
  5469.   &am_file_error ($where, "$cond does not appear in AM_CONDITIONAL")
  5470.     if ! $configure_cond{$cond} && $cond !~ /^TRUE|FALSE$/;
  5471.  
  5472.   $cond = "${cond}_TRUE"
  5473.     unless $cond =~ /^TRUE|FALSE$/;
  5474.   $cond = condition_negate ($cond)
  5475.     if $negate;
  5476.  
  5477.   push (@cond_stack, $cond);
  5478.  
  5479.   return conditional_string (@cond_stack);
  5480. }
  5481.  
  5482.  
  5483. # $COND_STRING
  5484. # cond_stack_else ($NEGATE, $COND, $WHERE)
  5485. # ----------------------------------------
  5486. sub cond_stack_else ($$$)
  5487. {
  5488.   my ($negate, $cond, $where) = @_;
  5489.  
  5490.   if (! @cond_stack)
  5491.     {
  5492.       &am_file_error ($where, "else without if");
  5493.       return;
  5494.     }
  5495.  
  5496.   $cond_stack[$#cond_stack] = condition_negate ($cond_stack[$#cond_stack]);
  5497.  
  5498.   # If $COND is given, check against it.
  5499.   if (defined $cond)
  5500.     {
  5501.       $cond = "${cond}_TRUE"
  5502.     unless $cond =~ /^TRUE|FALSE$/;
  5503.       $cond = condition_negate ($cond)
  5504.     if $negate;
  5505.  
  5506.       &am_file_error ($where,
  5507.               "else reminder ($negate$cond) incompatible with "
  5508.               . "current conditional: $cond_stack[$#cond_stack]")
  5509.     if $cond_stack[$#cond_stack] ne $cond;
  5510.     }
  5511.  
  5512.   return conditional_string (@cond_stack);
  5513. }
  5514.  
  5515.  
  5516. # $COND_STRING
  5517. # cond_stack_endif ($NEGATE, $COND, $WHERE)
  5518. # -----------------------------------------
  5519. sub cond_stack_endif ($$$)
  5520. {
  5521.   my ($negate, $cond, $where) = @_;
  5522.   my $old_cond;
  5523.  
  5524.   if (! @cond_stack)
  5525.     {
  5526.       &am_file_error ($where, "endif without if: $negate$cond");
  5527.       return;
  5528.     }
  5529.  
  5530.  
  5531.   # If $COND is given, check against it.
  5532.   if (defined $cond)
  5533.     {
  5534.       $cond = "${cond}_TRUE"
  5535.     unless $cond =~ /^TRUE|FALSE$/;
  5536.       $cond = condition_negate ($cond)
  5537.     if $negate;
  5538.  
  5539.       &am_file_error ($where,
  5540.               "endif reminder ($negate$cond) incompatible with "
  5541.               . "current conditional: $cond_stack[$#cond_stack]")
  5542.     if $cond_stack[$#cond_stack] ne $cond;
  5543.     }
  5544.  
  5545.   pop @cond_stack;
  5546.  
  5547.   return conditional_string (@cond_stack);
  5548. }
  5549.  
  5550.  
  5551.  
  5552.  
  5553.  
  5554. ## ------------------------ ##
  5555. ## Handling the variables.  ##
  5556. ## ------------------------ ##
  5557.  
  5558.  
  5559. # check_ambiguous_conditional ($VAR, $COND)
  5560. # -----------------------------------------
  5561. # Check for an ambiguous conditional.  This is called when a variable
  5562. # is being defined conditionally.  If we already know about a
  5563. # definition that is true under the same conditions, then we have an
  5564. # ambiguity.
  5565. sub check_ambiguous_conditional ($$)
  5566. {
  5567.     my ($var, $cond) = @_;
  5568.     foreach my $vcond (keys %{$var_value{$var}})
  5569.     {
  5570.        my $message;
  5571.        if ($vcond eq $cond)
  5572.        {
  5573.        $message = "$var multiply defined in condition $cond";
  5574.        }
  5575.        elsif (&conditional_true_when ($vcond, $cond))
  5576.        {
  5577.      $message = ("$var was already defined in condition $vcond, "
  5578.              . "which implies condition $cond");
  5579.        }
  5580.        elsif (&conditional_true_when ($cond, $vcond))
  5581.        {
  5582.        $message = ("$var was already defined in condition $vcond, "
  5583.                . "which is implied by condition $cond");
  5584.        }
  5585.        if ($message)
  5586.        {
  5587.        &am_line_error ($var, $message);
  5588.        macro_dump ($var);
  5589.        }
  5590.    }
  5591. }
  5592.  
  5593.  
  5594. # ¯o_define($VAR, $VAR_IS_AM, $TYPE, $COND, $VALUE, $WHERE)
  5595. # -------------------------------------------------------------
  5596. # The $VAR can go from Automake to user, but not the converse.
  5597. sub macro_define ($$$$$$)
  5598. {
  5599.   my ($var, $var_is_am, $type, $cond, $value, $where) = @_;
  5600.  
  5601.   am_file_error ($where, "bad macro name `$var'")
  5602.     if $var !~ /$MACRO_PATTERN/o;
  5603.  
  5604.   $cond ||= 'TRUE';
  5605.  
  5606.   # An Automake variable must be consistently defined with the same
  5607.   # sign by Automake.  A user variable must be set by either `=' or
  5608.   # `:=', and later promoted to `+='.
  5609.   if ($var_is_am)
  5610.     {
  5611.       if (defined $var_type{$var} && $var_type{$var} ne $type)
  5612.     {
  5613.       am_line_error ($var,
  5614.              ("$var was set with `$var_type{$var}=' "
  5615.               . "and is now set with `$type='"));
  5616.     }
  5617.     }
  5618.   else
  5619.     {
  5620.       if (!defined $var_type{$var} && $type eq '+')
  5621.     {
  5622.       am_line_error ($var, "$var must be set with `=' before using `+='");
  5623.     }
  5624.     }
  5625.   $var_type{$var} = $type;
  5626.  
  5627.   # When adding, since we rewrite, don't try to preserve the
  5628.   # Automake continuation backslashes.
  5629.   $value =~ s/\\$//mg
  5630.     if $type eq '+' && $var_is_am;
  5631.  
  5632.   # Differentiate the first assignment (including with `+=').
  5633.   if ($type eq '+' && defined $var_value{$var}{$cond})
  5634.     {
  5635.       if (substr ($var_value{$var}{$cond}, -1) eq "\n")
  5636.     {
  5637.       # Insert a backslash before a trailing newline.
  5638.       $var_value{$var}{$cond} =
  5639.         substr ($var_value{$var}{$cond}, 0, -1) . "\\\n";
  5640.     }
  5641.       elsif ($var_value{$var}{$cond})
  5642.     {
  5643.       # Insert a separator.
  5644.       $var_value{$var}{$cond} .= ' ';
  5645.     }
  5646.        $var_value{$var}{$cond} .= $value;
  5647.     }
  5648.   else
  5649.     {
  5650.       # The first assignment to a macro sets the line number.  Ideally I
  5651.       # suppose we would associate line numbers with random bits of text.
  5652.       # FIXME: We sometimes redefine some variables, but we want to keep
  5653.       # the original location.  More subs are needed to handle
  5654.       # properly variables.  Once this done, remove this hack.
  5655.       $var_line{$var} = $where
  5656.     unless defined $var_line{$var};
  5657.  
  5658.       # If Automake tries to override a value specified by the user,
  5659.       # just don't let it do.
  5660.       if (defined $var_value{$var}{$cond} && !$var_is_am{$var} && $var_is_am)
  5661.     {
  5662.       if ($verbose)
  5663.         {
  5664.           print STDERR "$me: refusing to override the user definition of:\n";
  5665.           macro_dump ($var);
  5666.           print STDERR "$me: with `$cond' => `$value'\n";
  5667.         }
  5668.     }
  5669.       else
  5670.     {
  5671.       # There must be no previous value unless the user is redefining
  5672.       # an Automake variable or an AC_SUBST variable.
  5673.       check_ambiguous_conditional ($var, $cond)
  5674.         unless ($var_is_am{$var} && !$var_is_am
  5675.             || exists $configure_vars{$var});
  5676.  
  5677.       $var_value{$var}{$cond} = $value;
  5678.     }
  5679.     }
  5680.  
  5681.   # An Automake variable can be given to the user, but not the converse.
  5682.   if (! defined $var_is_am{$var} || !$var_is_am)
  5683.     {
  5684.       $var_is_am{$var} = $var_is_am;
  5685.     }
  5686. }
  5687.  
  5688.  
  5689. # &variable_delete ($VAR, [@CONDS])
  5690. # ---------------------------------
  5691. # Forget about $VAR under the conditions @CONDS, or completely if
  5692. # @CONDS is empty.
  5693. sub variable_delete ($@)
  5694. {
  5695.   my ($var, @conds) = @_;
  5696.  
  5697.   if (!@conds)
  5698.     {
  5699.       delete $var_value{$var};
  5700.       delete $var_line{$var};
  5701.       delete $var_is_am{$var};
  5702.       delete $var_comment{$var};
  5703.       delete $var_type{$var};
  5704.     }
  5705.   else
  5706.     {
  5707.       foreach my $cond (@conds)
  5708.     {
  5709.       delete $var_value{$var}{$cond};
  5710.     }
  5711.     }
  5712. }
  5713.  
  5714.  
  5715. # ¯o_dump ($VAR)
  5716. # ------------------
  5717. sub macro_dump ($)
  5718. {
  5719.   my ($var) = @_;
  5720.  
  5721.   if (!exists $var_value{$var})
  5722.     {
  5723.       print STDERR "  $var does not exist\n";
  5724.     }
  5725.   else
  5726.     {
  5727.       my $var_is_am = $var_is_am{$var} ? "Automake" : "User";
  5728.       my $where = (defined $var_line{$var}
  5729.            ? $var_line{$var} : "undefined");
  5730.       print STDERR "$var_comment{$var}"
  5731.     if defined $var_comment{$var};
  5732.       print STDERR "  $var ($var_is_am, where = $where) $var_type{$var}=\n";
  5733.       print STDERR "  {\n";
  5734.       foreach my $vcond (sort by_condition keys %{$var_value{$var}})
  5735.     {
  5736.       print STDERR "    $vcond => $var_value{$var}{$vcond}\n";
  5737.     }
  5738.       print STDERR "  }\n";
  5739.     }
  5740. }
  5741.  
  5742.  
  5743. # ¯os_dump ()
  5744. # ---------------
  5745. sub macros_dump ()
  5746. {
  5747.   my ($var) = @_;
  5748.  
  5749.   print STDERR "%var_value =\n";
  5750.   print STDERR "{\n";
  5751.   foreach my $var (sort (keys %var_value))
  5752.     {
  5753.       macro_dump ($var);
  5754.     }
  5755.   print STDERR "}\n";
  5756. }
  5757.  
  5758.  
  5759. # $BOOLEAN
  5760. # &variable_defined ($VAR, [$COND])
  5761. # ---------------------------------
  5762. # See if a variable exists.  $VAR is the variable name, and $COND is
  5763. # the condition which we should check.  If no condition is given, we
  5764. # currently return true if the variable is defined under any
  5765. # condition.
  5766. sub variable_defined ($$)
  5767. {
  5768.     my ($var, $cond) = @_;
  5769.  
  5770.     # Unfortunately we can't just check for $var_value{VAR}{COND}
  5771.     # as this would make perl create $condition{VAR}, which we
  5772.     # don't want.
  5773.     if (!exists $var_value{$var})
  5774.       {
  5775.     if (defined $targets{$var})
  5776.       {
  5777.         &am_line_error ($var, "`$var' is a target; expected a variable")
  5778.       }
  5779.     # The variable is not defined
  5780.     return 0;
  5781.       }
  5782.  
  5783.     if ($cond && !exists $var_value{$var}{$cond})
  5784.       {
  5785.     # The variable is not defined for the given condition.
  5786.     return 0;
  5787.       }
  5788.  
  5789.     # Even a var_value examination is good enough for us.  FIXME:
  5790.     # really should maintain examined status on a per-condition basis.
  5791.     $content_seen{$var} = 1;
  5792.     return 1;
  5793. }
  5794.  
  5795. # Mark a variable as examined.
  5796. sub examine_variable
  5797. {
  5798.     my ($var) = @_;
  5799.     &variable_defined ($var);
  5800. }
  5801.  
  5802. # Return the set of conditions for which a variable is defined.
  5803.  
  5804. # If the variable is not defined conditionally, and is not defined in
  5805. # terms of any variables which are defined conditionally, then this
  5806. # returns the empty list.
  5807.  
  5808. # If the variable is defined conditionally, but is not defined in
  5809. # terms of any variables which are defined conditionally, then this
  5810. # returns the list of conditions for which the variable is defined.
  5811.  
  5812. # If the variable is defined in terms of any variables which are
  5813. # defined conditionally, then this returns a full set of permutations
  5814. # of the subvariable conditions.  For example, if the variable is
  5815. # defined in terms of a variable which is defined for COND_TRUE,
  5816. # then this returns both COND_TRUE and COND_FALSE.  This is
  5817. # because we will need to define the variable under both conditions.
  5818.  
  5819. sub variable_conditions ($)
  5820. {
  5821.     my ($var) = @_;
  5822.     my %uniqify;
  5823.     my @uniq_list;
  5824.  
  5825.     %vars_scanned = ();
  5826.  
  5827.     my @new_conds = &variable_conditions_sub ($var, '');
  5828.     # Now we want to return all permutations of the subvariable
  5829.     # conditions.
  5830.     my %allconds = ();
  5831.     foreach my $item (@new_conds)
  5832.     {
  5833.     foreach (split (' ', $item))
  5834.     {
  5835.         s/^(.*)_(TRUE|FALSE)$/$1_TRUE/;
  5836.         $allconds{$_} = 1;
  5837.     }
  5838.     }
  5839.     @new_conds = &variable_conditions_permutations (sort keys %allconds);
  5840.  
  5841.     foreach my $cond (@new_conds)
  5842.     {
  5843.     my $reduce = &variable_conditions_reduce (split (' ', $cond));
  5844.         next
  5845.         if $reduce eq 'FALSE';
  5846.     $uniqify{$cond} = 1;
  5847.     }
  5848.  
  5849.     @uniq_list = sort by_condition keys %uniqify;
  5850.     # Note we cannot just do `return sort keys %uniqify', because this
  5851.     # function is sometimes used in a scalar context.
  5852.     return @uniq_list;
  5853. }
  5854.  
  5855.  
  5856. # $BOOLEAN
  5857. # &variable_conditionally_defined ($VAR)
  5858. # --------------------------------------
  5859. sub variable_conditionally_defined ($)
  5860. {
  5861.     my ($var) = @_;
  5862.     foreach my $cond (variable_conditions ($var))
  5863.       {
  5864.     return 1
  5865.       unless $cond =~ /^TRUE|FALSE$/;
  5866.       }
  5867.     return 0;
  5868. }
  5869.  
  5870.  
  5871.  
  5872. # &variable_conditions_sub ($VAR, $PARENT)
  5873. # -------------------------------------------------------
  5874. # A subroutine of variable_conditions.  This returns all the
  5875. # conditions of $VAR, including those of any sub-variables.
  5876. sub variable_conditions_sub
  5877. {
  5878.     my ($var, $parent) = @_;
  5879.     my @new_conds = ();
  5880.  
  5881.     if (defined $vars_scanned{$var})
  5882.     {
  5883.     &am_line_error ($parent, "variable `$var' recursively defined");
  5884.     return ();
  5885.     }
  5886.     $vars_scanned{$var} = 1;
  5887.  
  5888.     my @this_conds = ();
  5889.     # Examine every condition under which $VAR is defined.
  5890.     foreach my $vcond (keys %{$var_value{$var}})
  5891.     {
  5892.     push (@this_conds, $vcond);
  5893.  
  5894.     # If $VAR references some other variable, then compute the
  5895.     # conditions for that subvariable.
  5896.     my @subvar_conds = ();
  5897.     foreach (split (' ', $var_value{$var}{$vcond}))
  5898.     {
  5899.         # If a comment seen, just leave.
  5900.         last if /^#/;
  5901.  
  5902.         # Handle variable substitutions.
  5903.         if (/^\$\{(.*)\}$/ || /^\$\((.*)\)$/)
  5904.         {
  5905.             my $varname = $1;
  5906.         if ($varname =~ /$SUBST_REF_PATTERN/o)
  5907.         {
  5908.             $varname = $1;
  5909.         }
  5910.  
  5911.  
  5912.         # Here we compute all the conditions under which the
  5913.         # subvariable is defined.  Then we go through and add
  5914.         # $VCOND to each.
  5915.         my @svc = &variable_conditions_sub ($varname, $var);
  5916.         foreach my $item (@svc)
  5917.         {
  5918.             my $val = conditional_string ($vcond, split (' ', $item));
  5919.             $val ||= 'TRUE';
  5920.             push (@subvar_conds, $val);
  5921.         }
  5922.         }
  5923.     }
  5924.  
  5925.     # If there are no conditional subvariables, then we want to
  5926.     # return this condition.  Otherwise, we want to return the
  5927.     # permutations of the subvariables, taking into account the
  5928.     # conditions of $VAR.
  5929.     if (! @subvar_conds)
  5930.     {
  5931.         push (@new_conds, $vcond);
  5932.     }
  5933.     else
  5934.     {
  5935.         push (@new_conds, &variable_conditions_reduce (@subvar_conds));
  5936.     }
  5937.     }
  5938.  
  5939.     # Unset our entry in vars_scanned.  We only care about recursive
  5940.     # definitions.
  5941.     delete $vars_scanned{$var};
  5942.  
  5943.     # If we are being called on behalf of another variable, we need to
  5944.     # return all possible permutations of the conditions.  We have
  5945.     # already handled everything in @this_conds along with their
  5946.     # subvariables.  We now need to add any permutations that are not
  5947.     # in @this_conds.
  5948.     foreach my $this_cond (@this_conds)
  5949.     {
  5950.     my @perms =
  5951.         &variable_conditions_permutations (split(' ', $this_cond));
  5952.     foreach my $perm (@perms)
  5953.     {
  5954.         my $ok = 1;
  5955.         foreach my $scan (@this_conds)
  5956.         {
  5957.         if (&conditional_true_when ($perm, $scan)
  5958.             || &conditional_true_when ($scan, $perm))
  5959.         {
  5960.             $ok = 0;
  5961.             last;
  5962.         }
  5963.         }
  5964.         next if ! $ok;
  5965.  
  5966.         # This permutation was not already handled, and is valid
  5967.         # for the parents.
  5968.         push (@new_conds, $perm);
  5969.     }
  5970.     }
  5971.  
  5972.     return @new_conds;
  5973. }
  5974.  
  5975.  
  5976. # Filter a list of conditionals so that only the exclusive ones are
  5977. # retained.  For example, if both `COND1_TRUE COND2_TRUE' and
  5978. # `COND1_TRUE' are in the list, discard the latter.
  5979. # If the list is empty, return TRUE
  5980. sub variable_conditions_reduce
  5981. {
  5982.     my (@conds) = @_;
  5983.     my @ret = ();
  5984.     my $cond;
  5985.     while(@conds > 0)
  5986.     {
  5987.     $cond = shift(@conds);
  5988.  
  5989.         # FALSE is absorbent.
  5990.         if ($cond eq 'FALSE')
  5991.       {
  5992.         return ('FALSE');
  5993.       }
  5994.     elsif (!conditional_is_redundant ($cond, @ret, @conds))
  5995.       {
  5996.         push (@ret, $cond);
  5997.       }
  5998.     }
  5999.  
  6000.     return "TRUE" if @ret == 0;
  6001.     return @ret;
  6002. }
  6003.  
  6004. # @CONDS
  6005. # invert_conditions (@CONDS)
  6006. # --------------------------
  6007. # Invert a list of conditionals.  Returns a set of conditionals which
  6008. # are never true for any of the input conditionals, and when taken
  6009. # together with the input conditionals cover all possible cases.
  6010. # 
  6011. # For example: invert_conditions("A_TRUE B_TRUE", "A_FALSE B_FALSE") will
  6012. # return ("A_FALSE B_TRUE", "A_TRUE B_FALSE")
  6013. sub invert_conditions
  6014. {
  6015.     my (@conds) = @_;
  6016.  
  6017.     my @notconds = ();
  6018.     foreach my $cond (@conds)
  6019.     {
  6020.     foreach my $perm (variable_conditions_permutations (split(' ', $cond)))
  6021.     {
  6022.         push @notconds, $perm
  6023.             if ! conditional_is_redundant ($perm, @conds);
  6024.     }
  6025.     }
  6026.     return variable_conditions_reduce (@notconds);
  6027. }
  6028.  
  6029. # Return a list of permutations of a conditional string.
  6030. sub variable_conditions_permutations
  6031. {
  6032.     my (@comps) = @_;
  6033.     return ()
  6034.     if ! @comps;
  6035.     my $comp = shift (@comps);
  6036.     return &variable_conditions_permutations (@comps)
  6037.     if $comp eq '';
  6038.     my $neg = condition_negate ($comp);
  6039.  
  6040.     my @ret;
  6041.     foreach my $sub (&variable_conditions_permutations (@comps))
  6042.     {
  6043.     push (@ret, "$comp $sub");
  6044.     push (@ret, "$neg $sub");
  6045.     }
  6046.     if (! @ret)
  6047.     {
  6048.     push (@ret, $comp);
  6049.     push (@ret, $neg);
  6050.     }
  6051.     return @ret;
  6052. }
  6053.  
  6054.  
  6055. # $BOOL
  6056. # &check_variable_defined_unconditionally($VAR, $PARENT)
  6057. # ------------------------------------------------------
  6058. # Warn if a variable is conditionally defined.  This is called if we
  6059. # are using the value of a variable.
  6060. sub check_variable_defined_unconditionally ($$)
  6061. {
  6062.     my ($var, $parent) = @_;
  6063.     foreach my $cond (keys %{$var_value{$var}})
  6064.     {
  6065.         next
  6066.       if $cond =~ /^TRUE|FALSE$/;
  6067.  
  6068.     if ($parent)
  6069.     {
  6070.         &am_line_error ($parent,
  6071.                 "warning: automake does not support conditional definition of $var in $parent");
  6072.     }
  6073.     else
  6074.     {
  6075.         &am_line_error ($parent,
  6076.                 "warning: automake does not support $var being defined conditionally");
  6077.     }
  6078.     }
  6079. }
  6080.  
  6081.  
  6082. # Get the TRUE value of a variable, warn if the variable is
  6083. # conditionally defined.
  6084. sub variable_value
  6085. {
  6086.     my ($var) = @_;
  6087.     &check_variable_defined_unconditionally ($var);
  6088.     return $var_value{$var}{'TRUE'};
  6089. }
  6090.  
  6091.  
  6092. # @VALUES
  6093. # &value_to_list ($VAR, $VAL, $COND)
  6094. # ----------------------------------
  6095. # Convert a variable value to a list, split as whitespace.  This will
  6096. # recursively follow $(...) and ${...} inclusions.  It preserves @...@
  6097. # substitutions.
  6098. #
  6099. # If COND is 'all', then all values under all conditions should be
  6100. # returned; if COND is a particular condition (all conditions are
  6101. # surrounded by @...@) then only the value for that condition should
  6102. # be returned; otherwise, warn if VAR is conditionally defined.
  6103. # SCANNED is a global hash listing whose keys are all the variables
  6104. # already scanned; it is an error to rescan a variable.
  6105. sub value_to_list
  6106. {
  6107.     my ($var, $val, $cond) = @_;
  6108.     my @result;
  6109.  
  6110.     # Strip backslashes
  6111.     $val =~ s/\\(\n|$)/ /g;
  6112.  
  6113.     foreach (split (' ', $val))
  6114.     {
  6115.     # If a comment seen, just leave.
  6116.     last if /^#/;
  6117.  
  6118.     # Handle variable substitutions.
  6119.     if (/^\$\{([^}]*)\}$/ || /^\$\(([^)]*)\)$/)
  6120.     {
  6121.         my $varname = $1;
  6122.  
  6123.         # If the user uses a losing variable name, just ignore it.
  6124.         # This isn't ideal, but people have requested it.
  6125.         next if ($varname =~ /\@.*\@/);
  6126.  
  6127.         my ($from, $to);
  6128.         my @temp_list;
  6129.         if ($varname =~ /$SUBST_REF_PATTERN/o)
  6130.         {
  6131.         $varname = $1;
  6132.         $to = $3;
  6133.         ($from = $2) =~ s/(\W)/\\$1/g;
  6134.         }
  6135.  
  6136.         # Find the value.
  6137.         @temp_list = &variable_value_as_list_worker ($1, $cond, $var);
  6138.  
  6139.         # Now rewrite the value if appropriate.
  6140.         if (defined $from)
  6141.         {
  6142.         grep (s/$from$/$to/, @temp_list);
  6143.         }
  6144.  
  6145.         push (@result, @temp_list);
  6146.     }
  6147.     else
  6148.     {
  6149.         push (@result, $_);
  6150.     }
  6151.     }
  6152.  
  6153.     return @result;
  6154. }
  6155.  
  6156. # Return contents of variable as list, split as whitespace.  This will
  6157. # recursively follow $(...) and ${...} inclusions.  It preserves @...@
  6158. # substitutions.  If COND is 'all', then all values under all
  6159. # conditions should be returned; if COND is a particular condition
  6160. # (all conditions are surrounded by @...@) then only the value for
  6161. # that condition should be returned; otherwise, warn if VAR is
  6162. # conditionally defined.  If PARENT is specified, it is the name of
  6163. # the including variable; this is only used for error reports.
  6164. sub variable_value_as_list_worker
  6165. {
  6166.     my ($var, $cond, $parent) = @_;
  6167.     my @result = ();
  6168.  
  6169.     if (! defined $var_value{$var})
  6170.     {
  6171.         if (defined $targets{$var})
  6172.       {
  6173.         &am_line_error ($var, "`$var' is a target; expected a variable");
  6174.       }
  6175.     else
  6176.       {
  6177.         &am_line_error ($parent, "variable `$var' not defined");
  6178.       }
  6179.     }
  6180.     elsif (defined $vars_scanned{$var})
  6181.     {
  6182.     # `vars_scanned' is a global we use to keep track of which
  6183.     # variables we've already examined.
  6184.     &am_line_error ($parent, "variable `$var' recursively defined");
  6185.     }
  6186.     elsif ($cond eq 'all')
  6187.     {
  6188.     $vars_scanned{$var} = 1;
  6189.     foreach my $vcond (keys %{$var_value{$var}})
  6190.     {
  6191.         my $val = $var_value{$var}{$vcond};
  6192.         push (@result, &value_to_list ($var, $val, $cond));
  6193.     }
  6194.     }
  6195.     else
  6196.     {
  6197.         $cond ||= 'TRUE';
  6198.     $vars_scanned{$var} = 1;
  6199.     my $onceflag;
  6200.     foreach my $vcond (keys %{$var_value{$var}})
  6201.     {
  6202.         my $val = $var_value{$var}{$vcond};
  6203.         if (&conditional_true_when ($vcond, $cond))
  6204.         {
  6205.         # Warn if we have an ambiguity.  It's hard to know how
  6206.         # to handle this case correctly.
  6207.         &check_variable_defined_unconditionally ($var, $parent)
  6208.             if $onceflag;
  6209.         $onceflag = 1;
  6210.         push (@result, &value_to_list ($var, $val, $cond));
  6211.         }
  6212.     }
  6213.     }
  6214.  
  6215.     # Unset our entry in vars_scanned.  We only care about recursive
  6216.     # definitions.
  6217.     delete $vars_scanned{$var};
  6218.  
  6219.     return @result;
  6220. }
  6221.  
  6222.  
  6223. # &variable_output ($VAR, [@CONDS])
  6224. # ---------------------------------
  6225. # Output all the values of $VAR is @COND is not specified, else only
  6226. # that corresponding to @COND.
  6227. sub variable_output ($@)
  6228. {
  6229.   my ($var, @conds) = @_;
  6230.  
  6231.   @conds = sort by_condition keys %{$var_value{$var}}
  6232.     unless @conds;
  6233.  
  6234.   $output_vars .= $var_comment{$var}
  6235.     if defined $var_comment{$var};
  6236.  
  6237.   foreach my $cond (@conds)
  6238.     {
  6239.       my $val = $var_value{$var}{$cond};
  6240.       my $equals = $var_type{$var} eq ':' ? ':=' : '=';
  6241.       my $output_var = "$var $equals $val";
  6242.       $output_var =~ s/^/make_condition ($cond)/meg;
  6243.       $output_vars .= $output_var . "\n";
  6244.     }
  6245. }
  6246.  
  6247.  
  6248. # &variable_pretty_output ($VAR, [@CONDS])
  6249. # ----------------------------------------
  6250. # Likewise, but pretty, i.e., we *split* the values at spaces.   Use only
  6251. # with variables holding filenames.
  6252. sub variable_pretty_output ($@)
  6253. {
  6254.   my ($var, @conds) = @_;
  6255.  
  6256.   @conds = sort by_condition keys %{$var_value{$var}}
  6257.     unless @conds;
  6258.  
  6259.   $output_vars .= $var_comment{$var}
  6260.     if defined $var_comment{$var};
  6261.  
  6262.   foreach my $cond (@conds)
  6263.     {
  6264.       my $val = $var_value{$var}{$cond};
  6265.       my $equals = $var_type{$var} eq ':' ? ':=' : '=';
  6266.       my $make_condition = make_condition ($cond);
  6267.       $output_vars .= pretty_print_internal ("$make_condition$var $equals",
  6268.                          "$make_condition\t",
  6269.                          split (' ' , $val));
  6270.     }
  6271. }
  6272.  
  6273.  
  6274. # This is just a wrapper for variable_value_as_list_worker that
  6275. # initializes the global hash `vars_scanned'.  This hash is used to
  6276. # avoid infinite recursion.
  6277. sub variable_value_as_list
  6278. {
  6279.     my ($var, $cond, $parent) = @_;
  6280.     %vars_scanned = ();
  6281.     return &variable_value_as_list_worker ($var, $cond, $parent);
  6282. }
  6283.  
  6284.  
  6285. # Like define_variable, but the value is a list, and the variable may
  6286. # be defined conditionally.  The second argument is the conditional
  6287. # under which the value should be defined; this should be the empty
  6288. # string to define the variable unconditionally.  The third argument
  6289. # is a list holding the values to use for the variable.  The value is
  6290. # pretty printed in the output file.
  6291. sub define_pretty_variable
  6292. {
  6293.     my ($var, $cond, @value) = @_;
  6294.  
  6295.     # Beware that an empty $cond has a different semantics for
  6296.     # macro_define and variable_pretty_output.
  6297.     $cond ||= 'TRUE';
  6298.  
  6299.     if (! &variable_defined ($var, $cond))
  6300.     {
  6301.         macro_define ($var, 1, '', $cond, join (' ', @value), undef);
  6302.     variable_pretty_output ($var, $cond || 'TRUE');
  6303.     $content_seen{$var} = 1;
  6304.     }
  6305. }
  6306.  
  6307.  
  6308. # define_variable ($VAR, $VALUE)
  6309. # ------------------------------
  6310. # Define a new user variable VAR to VALUE, but only if not already defined.
  6311. sub define_variable
  6312. {
  6313.     my ($var, $value) = @_;
  6314.  
  6315.     define_pretty_variable ($var, 'TRUE', $value);
  6316. }
  6317.  
  6318.  
  6319. # Like define_variable, but define a variable to be the configure
  6320. # substitution by the same name.
  6321. sub define_configure_variable
  6322. {
  6323.     my ($var) = @_;
  6324.     my $value = '@' . $var . '@';
  6325.     &define_variable ($var, $value);
  6326. }
  6327.  
  6328.  
  6329. # define_compiler_variable ($LANG)
  6330. # --------------------------------
  6331. # Define a compiler variable.  We also handle defining the `LT'
  6332. # version of the command when using libtool.
  6333. sub define_compiler_variable ($)
  6334. {
  6335.     my ($lang) = @_;
  6336.  
  6337.     my ($var, $value) = ($lang->compiler, $lang->compile);
  6338.     &define_variable ($var, $value);
  6339.     &define_variable ("LT$var", "\$(LIBTOOL) --mode=compile $value")
  6340.       if $seen_libtool;
  6341. }
  6342.  
  6343.  
  6344. # define_linker_variable ($LANG)
  6345. # ------------------------------
  6346. # Define linker variables.
  6347. sub define_linker_variable ($)
  6348. {
  6349.     my ($lang) = @_;
  6350.  
  6351.     my ($var, $value) = ($lang->lder, $lang->ld);
  6352.     # CCLD = $(CC).
  6353.     &define_variable ($lang->lder, $lang->ld);
  6354.     # CCLINK = $(CCLD) blah blah...
  6355.     &define_variable ($lang->linker,
  6356.               (($seen_libtool ? '$(LIBTOOL) --mode=link ' : '')
  6357.                . $lang->link));
  6358. }
  6359.  
  6360. ################################################################
  6361.  
  6362. ## ---------------- ##
  6363. ## Handling rules.  ##
  6364. ## ---------------- ##
  6365.  
  6366. # $BOOL
  6367. # rule_define ($TARGET, $IS_AM, $COND, $WHERE)
  6368. # --------------------------------------------
  6369. # Define a new rule.  $TARGET is the rule name.  $IS_AM is a boolean
  6370. # which is true if the new rule is defined by the user.  $COND is the
  6371. # condition under which the rule is defined.  $WHERE is where the rule
  6372. # is defined (file name or line number).  Returns true if it is ok to
  6373. # define the rule, false otherwise.
  6374. sub rule_define ($$$$)
  6375. {
  6376.   my ($target, $rule_is_am, $cond, $where) = @_;
  6377.  
  6378.   # For now `foo:' will override `foo$(EXEEXT):'.  This is temporary,
  6379.   # though, so we emit a warning.
  6380.   (my $noexe = $target) =~ s,\$\(EXEEXT\)$,,;
  6381.   if ($noexe ne $target && defined $targets{$noexe})
  6382.   {
  6383.       # The no-exeext option enables this feature.
  6384.       if (! defined $options{'no-exeext'})
  6385.       {
  6386.       &am_line_error ($noexe,
  6387.               "deprecated feature: `$noexe' overrides `$noexe\$(EXEEXT)'\nchange your target to read `$noexe\$(EXEEXT)'");
  6388.       }
  6389.       # Don't define.
  6390.       return 0;
  6391.   }
  6392.  
  6393.   if (defined $targets{$target}
  6394.       && ($cond
  6395.       ? ! defined $target_conditional{$target}
  6396.       : defined $target_conditional{$target}))
  6397.   {
  6398.       &am_line_error ($target,
  6399.               "$target defined both conditionally and unconditionally");
  6400.   }
  6401.  
  6402.   # Value here doesn't matter; for targets we only note existence.
  6403.   $targets{$target} = $where;
  6404.   if ($cond)
  6405.   {
  6406.       if ($target_conditional{$target})
  6407.       {
  6408.       &check_ambiguous_conditional ($target, $cond);
  6409.       }
  6410.       $target_conditional{$target}{$cond} = $where;
  6411.   }
  6412.  
  6413.  
  6414.   # Check the rule for being a suffix rule. If so, store in a hash.
  6415.  
  6416.   if ((my ($source_suffix, $object_suffix)) = ($target =~ $SUFFIX_RULE_PATTERN))
  6417.   {
  6418.       $suffix_rules{$source_suffix} = $object_suffix;
  6419.       print "Sources ending in .$source_suffix become .$object_suffix\n"
  6420.       if $verbose;
  6421.       # Set SUFFIXES from suffix_rules.
  6422.       push @suffixes, ".$source_suffix", ".$object_suffix";
  6423.   }
  6424.  
  6425.   return 1;
  6426. }
  6427.  
  6428.  
  6429. # See if a target exists.
  6430. sub target_defined
  6431. {
  6432.     my ($target) = @_;
  6433.     return defined $targets{$target};
  6434. }
  6435.  
  6436.  
  6437. ################################################################
  6438.  
  6439. # Read Makefile.am and set up %contents.  Simultaneously copy lines
  6440. # from Makefile.am into $output_trailer or $output_vars as
  6441. # appropriate.  NOTE we put rules in the trailer section.  We want
  6442. # user rules to come after our generated stuff.
  6443. sub read_am_file
  6444. {
  6445.     my ($amfile) = @_;
  6446.  
  6447.     my $am_file = new IO::File ("< $amfile");
  6448.     if (! $am_file)
  6449.     {
  6450.     die "$me: couldn't open `$amfile': $!\n";
  6451.     }
  6452.     print "$me: reading $amfile\n" if $verbose;
  6453.  
  6454.     my $spacing = '';
  6455.     my $comment = '';
  6456.     my $blank = 0;
  6457.  
  6458.     while ($_ = $am_file->getline)
  6459.     {
  6460.     if (/$IGNORE_PATTERN/o)
  6461.     {
  6462.         # Merely delete comments beginning with two hashes.
  6463.     }
  6464.     elsif (/$WHITE_PATTERN/o)
  6465.     {
  6466.         # Stick a single white line before the incoming macro or rule.
  6467.         $spacing = "\n";
  6468.         $blank = 1;
  6469.     }
  6470.     elsif (/$COMMENT_PATTERN/o)
  6471.     {
  6472.         # Stick comments before the incoming macro or rule.  Make
  6473.         # sure a blank line preceeds first block of comments.
  6474.         $spacing = "\n" unless $blank;
  6475.         $blank = 1;
  6476.         $comment .= $spacing . $_;
  6477.         $spacing = '';
  6478.     }
  6479.     else
  6480.     {
  6481.         last;
  6482.     }
  6483.     }
  6484.  
  6485.     $output_vars .= $comment . "\n";
  6486.     $comment = '';
  6487.     $spacing = "\n";
  6488.  
  6489.     # We save the conditional stack on entry, and then check to make
  6490.     # sure it is the same on exit.  This lets us conditonally include
  6491.     # other files.
  6492.     my @saved_cond_stack = @cond_stack;
  6493.     my $cond = conditional_string (@cond_stack);
  6494.  
  6495.     my $saw_bk = 0;
  6496.     my $was_rule = 0;
  6497.     my $last_var_name = '';
  6498.     my $last_var_type = '';
  6499.     my $last_var_value = '';
  6500.     # FIXME: shouldn't use $_ in this loop; it is too big.
  6501.     while ($_)
  6502.     {
  6503.     $_ .= "\n"
  6504.         unless substr ($_, -1, 1) eq "\n";
  6505.  
  6506.     # Don't look at MAINTAINER_MODE_TRUE here.  That shouldn't be
  6507.     # used by users.  @MAINT@ is an anachronism now.
  6508.     $_ =~ s/\@MAINT\@//g
  6509.         unless $seen_maint_mode;
  6510.  
  6511.     my $new_saw_bk = /\\$/ && ! /$COMMENT_PATTERN/o;
  6512.  
  6513.     if (/$IGNORE_PATTERN/o)
  6514.     {
  6515.         # Merely delete comments beginning with two hashes.
  6516.     }
  6517.     elsif (/$WHITE_PATTERN/o)
  6518.     {
  6519.         # Stick a single white line before the incoming macro or rule.
  6520.         $spacing = "\n";
  6521.         &am_line_error ($., "blank line following trailing backslash")
  6522.         if $saw_bk;
  6523.     }
  6524.     elsif (/$COMMENT_PATTERN/o)
  6525.     {
  6526.         # Stick comments before the incoming macro or rule.
  6527.         $comment .= $spacing . $_;
  6528.         $spacing = '';
  6529.         &am_line_error ($., "comment following trailing backslash")
  6530.         if $saw_bk;
  6531.     }
  6532.     elsif ($saw_bk)
  6533.     {
  6534.         if ($was_rule)
  6535.         {
  6536.             $output_trailer .= &make_condition (@cond_stack);
  6537.         $output_trailer .= $_;
  6538.         }
  6539.         else
  6540.         {
  6541.           $last_var_value .= ' '
  6542.         unless $last_var_value =~ /\s$/;
  6543.           $last_var_value .= $_;
  6544.  
  6545.           if (!/\\$/)
  6546.         {
  6547.           $var_comment{$last_var_name} .= "$spacing"
  6548.             if (!defined $var_comment{$last_var_name}
  6549.             || substr ($var_comment{$last_var_name}, -1) ne "\n");
  6550.           $var_comment{$last_var_name} .= "$comment";
  6551.           $comment = $spacing = '';
  6552.           macro_define ($last_var_name, 0,
  6553.                 $last_var_type, $cond,
  6554.                 $last_var_value, $.)
  6555.             if $cond ne 'FALSE';
  6556.           push (@var_list, $last_var_name);
  6557.         }
  6558.         }
  6559.     }
  6560.  
  6561.     elsif (/$IF_PATTERN/o)
  6562.       {
  6563.         $cond = cond_stack_if ($1, $2, "$amfile:$.");
  6564.       }
  6565.     elsif (/$ELSE_PATTERN/o)
  6566.       {
  6567.         $cond = cond_stack_else ($1, $2, "$amfile:$.");
  6568.       }
  6569.     elsif (/$ENDIF_PATTERN/o)
  6570.       {
  6571.         $cond = cond_stack_endif ($1, $2, "$amfile:$.");
  6572.       }
  6573.  
  6574.     elsif (/$RULE_PATTERN/o)
  6575.     {
  6576.         # Found a rule.
  6577.         $was_rule = 1;
  6578.  
  6579.         rule_define ($1, 0, $cond, $.);
  6580.  
  6581.         $var_line{$1} = $.;
  6582.         $output_trailer .= $comment . $spacing;
  6583.             $output_trailer .= &make_condition (@cond_stack);
  6584.             $output_trailer .= $_;
  6585.         $comment = $spacing = '';
  6586.     }
  6587.     elsif (/$ASSIGNMENT_PATTERN/o)
  6588.     {
  6589.         # Found a macro definition.
  6590.         $was_rule = 0;
  6591.         $last_var_name = $1;
  6592.         $last_var_type = $2;
  6593.         $last_var_value = $3;
  6594.         if ($3 ne '' && substr ($3, -1) eq "\\")
  6595.         {
  6596.         # We preserve the `\' because otherwise the long lines
  6597.         # that are generated will be truncated by broken
  6598.         # `sed's.
  6599.         $last_var_value = $3 . "\n";
  6600.         }
  6601.  
  6602.         if (!/\\$/)
  6603.           {
  6604.         # FIXME: this doesn't always work correctly; it will
  6605.         # group all comments for a given variable, no matter
  6606.         # where defined.
  6607.         # Accumulating variables must not be output.
  6608.         $var_comment{$last_var_name} .= "$spacing"
  6609.           if (!defined $var_comment{$last_var_name}
  6610.               || substr ($var_comment{$last_var_name}, -1) ne "\n");
  6611.         $var_comment{$last_var_name} .= "$comment";
  6612.         $comment = $spacing = '';
  6613.  
  6614.         macro_define ($last_var_name, 0,
  6615.                   $last_var_type, $cond,
  6616.                   $last_var_value, $.)
  6617.           if $cond ne 'FALSE';
  6618.         push (@var_list, $last_var_name);
  6619.           }
  6620.     }
  6621.         elsif (/$INCLUDE_PATTERN/o)
  6622.         {
  6623.             my $path = $1;
  6624.  
  6625.             if ($path =~ s/^\$\(top_srcdir\)\///)
  6626.             {
  6627.                 push (@include_stack, "\$\(top_srcdir\)/$path");
  6628.             }
  6629.             else
  6630.             {
  6631.                 $path =~ s/\$\(srcdir\)\///;
  6632.                 push (@include_stack, "\$\(srcdir\)/$path");
  6633.                 $path = $relative_dir . "/" . $path;
  6634.             }
  6635.             &read_am_file ($path);
  6636.         }
  6637.     else
  6638.         {
  6639.         # This isn't an error; it is probably a continued rule.
  6640.         # In fact, this is what we assume.
  6641.         $was_rule = 1;
  6642.         $output_trailer .= $comment . $spacing;
  6643.         $output_trailer .= &make_condition  (@cond_stack);
  6644.         $output_trailer .= $_;
  6645.         $comment = $spacing = '';
  6646.         &am_line_error ($., "`#' comment at start of rule is unportable")
  6647.         if $_ =~ /^\t\s*\#/;
  6648.     }
  6649.  
  6650.     $saw_bk = $new_saw_bk;
  6651.         $_ = $am_file->getline;
  6652.     }
  6653.  
  6654.     $output_trailer .= $comment;
  6655.  
  6656.     if (join (' ', @saved_cond_stack) ne join (' ', @cond_stack))
  6657.     {
  6658.     if (@cond_stack)
  6659.     {
  6660.         &am_error ("unterminated conditionals: @cond_stack");
  6661.     }
  6662.     else
  6663.     {
  6664.         # FIXME: better error message here.
  6665.         &am_error ("conditionals not nested in include file");
  6666.     }
  6667.     }
  6668. }
  6669.  
  6670.  
  6671. # define_standard_variables ()
  6672. # ----------------------------
  6673. # A helper for read_main_am_file which initializes configure variables
  6674. # and variables from header-vars.am.  This is a subr so we can call it
  6675. # twice.
  6676. sub define_standard_variables
  6677. {
  6678.     my $saved_output_vars = $output_vars;
  6679.     my ($comments, undef, $rules) =
  6680.       file_contents_internal (1, "$libdir/am/header-vars.am");
  6681.  
  6682.     # This will output the definitions in $output_vars, which we don't
  6683.     # want...
  6684.     foreach my $var (sort keys %configure_vars)
  6685.     {
  6686.         &define_configure_variable ($var);
  6687.         push (@var_list, $var);
  6688.     }
  6689.  
  6690.     # ... hence, we restore $output_vars.
  6691.     $output_vars = $saved_output_vars . $comments . $rules;
  6692. }
  6693.  
  6694. # Read main am file.
  6695. sub read_main_am_file
  6696. {
  6697.     my ($amfile) = @_;
  6698.  
  6699.     # This supports the strange variable tricks we are about to play.
  6700.     if (scalar keys %var_value > 0)
  6701.       {
  6702.     macros_dump ();
  6703.     &prog_error ("variable defined before read_main_am_file");
  6704.       }
  6705.  
  6706.     # Generate copyright header for generated Makefile.in.
  6707.     # We do discard the output of predefined variables, handled below.
  6708.     $output_vars = ("# $in_file_name generated automatically by automake "
  6709.            . $VERSION . " from $am_file_name.\n");
  6710.     $output_vars .= $gen_copyright;
  6711.  
  6712.     # We want to predefine as many variables as possible.  This lets
  6713.     # the user set them with `+=' in Makefile.am.  However, we don't
  6714.     # want these initial definitions to end up in the output quite
  6715.     # yet.  So we just load them, but output them later.
  6716.     &define_standard_variables;
  6717.  
  6718.     # Read user file, which might override some of our values.
  6719.     &read_am_file ($amfile);
  6720.  
  6721.     # Ouput all the Automake variables.  If the user changed one, then
  6722.     # it is now marked as owned by the user.
  6723.     foreach my $var (uniq @var_list)
  6724.     {
  6725.     # Don't process user variables.
  6726.         variable_output ($var)
  6727.       unless !$var_is_am{$var};
  6728.     }
  6729.  
  6730.     # Now dump the user variables that were defined.  We do it in the same
  6731.     # order in which they were defined (skipping duplicates).
  6732.     foreach my $var (uniq @var_list)
  6733.     {
  6734.     # Don't process Automake variables.
  6735.         variable_output ($var)
  6736.       unless $var_is_am{$var};
  6737.     }
  6738. }
  6739.  
  6740. ################################################################
  6741.  
  6742. # $FLATTENED
  6743. # &flatten ($STRING)
  6744. # ------------------
  6745. # Flatten the $STRING and return the result.
  6746. sub flatten
  6747. {
  6748.   $_ = shift;
  6749.  
  6750.   s/\\\n//somg;
  6751.   s/\s+/ /g;
  6752.   s/^ //;
  6753.   s/ $//;
  6754.  
  6755.   return $_;
  6756. }
  6757.  
  6758.  
  6759. # @PARAGRAPHS
  6760. # &make_paragraphs ($MAKEFILE, [%TRANSFORM])
  6761. # ------------------------------------------
  6762. # Load a $MAKEFILE, apply the %TRANSFORM, and return it as a list of
  6763. # paragraphs.
  6764. sub make_paragraphs ($%)
  6765. {
  6766.     my ($file, %transform) = @_;
  6767.  
  6768.     # Complete %transform with global options and make it a Perl
  6769.     # $command.
  6770.     my $command =
  6771.       "s/$IGNORE_PATTERN//gm;"
  6772.     . transform (%transform,
  6773.  
  6774.              'CYGNUS'          => $cygnus_mode,
  6775.              'MAINTAINER-MODE'
  6776.              => $seen_maint_mode ? subst ('MAINTAINER_MODE_TRUE') : '',
  6777.  
  6778.              'SHAR'        => $options{'dist-shar'} || 0,
  6779.              'BZIP2'       => $options{'dist-bzip2'} || 0,
  6780.              'ZIP'         => $options{'dist-zip'} || 0,
  6781.              'COMPRESS'    => $options{'dist-tarZ'} || 0,
  6782.  
  6783.              'INSTALL-INFO' => !$options{'no-installinfo'},
  6784.              'INSTALL-MAN'  => !$options{'no-installman'},
  6785.              'CK-NEWS'      => $options{'check-news'} || 0,
  6786.  
  6787.              'SUBDIRS'      => &variable_defined ('SUBDIRS'),
  6788.              'TOPDIR'       => backname ($relative_dir),
  6789.              'TOPDIR_P'     => $relative_dir eq '.',
  6790.              'CONFIGURE-AC' => $configure_ac,
  6791.  
  6792.              'BUILD'    => $seen_canonical == $AC_CANONICAL_SYSTEM,
  6793.              'HOST'     => $seen_canonical,
  6794.              'TARGET'   => $seen_canonical == $AC_CANONICAL_SYSTEM,
  6795.  
  6796.              'LIBTOOL'      => defined $configure_vars{'LIBTOOL'})
  6797.       # We don't need more than two consecutive new-lines.
  6798.       . 's/\n{3,}/\n\n/g';
  6799.  
  6800.     # Swallow the file and apply the COMMAND.
  6801.     my $fc_file = new IO::File ("< $file");
  6802.     if (! $fc_file)
  6803.     {
  6804.     die "$me: installation error: cannot open `$file'\n";
  6805.     }
  6806.     # Looks stupid?
  6807.     print "$me: reading $file\n"
  6808.       if $verbose;
  6809.     my $saved_dollar_slash = $/;
  6810.     undef $/;
  6811.     $_ = $fc_file->getline;
  6812.     $/ = $saved_dollar_slash;
  6813.     eval $command;
  6814.     $fc_file->close;
  6815.     my $content = $_;
  6816.  
  6817.     # Split at unescaped new lines.
  6818.     my @lines = split (/(?<!\\)\n/, $content);
  6819.     my @res;
  6820.  
  6821.     while (defined ($_ = shift @lines))
  6822.       {
  6823.     my $paragraph = "$_";
  6824.     # If we are a rule, eat as long as we start with a tab.
  6825.     if (/$RULE_PATTERN/smo)
  6826.       {
  6827.         while (defined ($_ = shift @lines) && $_ =~ /^\t/)
  6828.           {
  6829.         $paragraph .= "\n$_";
  6830.           }
  6831.         unshift (@lines, $_);
  6832.       }
  6833.  
  6834.     # If we are a comments, eat as much comments as you can.
  6835.     elsif (/$COMMENT_PATTERN/smo)
  6836.       {
  6837.         while (defined ($_ = shift @lines)
  6838.            && $_ =~ /$COMMENT_PATTERN/smo)
  6839.           {
  6840.         $paragraph .= "\n$_";
  6841.           }
  6842.         unshift (@lines, $_);
  6843.       }
  6844.  
  6845.     push @res, $paragraph;
  6846.     $paragraph = '';
  6847.       }
  6848.  
  6849.     return @res;
  6850. }
  6851.  
  6852.  
  6853.  
  6854. # ($COMMENT, $VARIABLES, $RULES)
  6855. # &file_contents_internal ($IS_AM, $FILE, [%TRANSFORM])
  6856. # -----------------------------------------------------
  6857. # Return contents of a file from $libdir/am, automatically skipping
  6858. # macros or rules which are already known. $IS_AM iff the caller is
  6859. # reading an Automake file (as opposed to the user's Makefile.am).
  6860. sub file_contents_internal ($$%)
  6861. {
  6862.     my ($is_am, $file, %transform) = @_;
  6863.  
  6864.     my $result_vars = '';
  6865.     my $result_rules = '';
  6866.     my $comment = '';
  6867.     my $spacing = '';
  6868.  
  6869.     # We save the conditional stack on entry, and then check to make
  6870.     # sure it is the same on exit.  This lets us conditonally include
  6871.     # other files.
  6872.     my @saved_cond_stack = @cond_stack;
  6873.     my $cond = conditional_string (@cond_stack);
  6874.  
  6875.     foreach (make_paragraphs ($file, %transform))
  6876.     {
  6877.         # Sanity checks.
  6878.     &am_file_error ($file, "blank line following trailing backslash:\n$_")
  6879.       if /\\$/;
  6880.     &am_file_error ($file, "comment following trailing backslash:\n$_")
  6881.       if /\\#/;
  6882.  
  6883.      if (/^$/)
  6884.      {
  6885.          # Stick empty line before the incoming macro or rule.
  6886.          $spacing = "\n";
  6887.      }
  6888.      elsif (/$COMMENT_PATTERN/mso)
  6889.      {
  6890.          # Stick comments before the incoming macro or rule.
  6891.          $comment = "$_\n";
  6892.     }
  6893.  
  6894.     # Handle inclusion of other files.
  6895.         elsif (/$INCLUDE_PATTERN/o)
  6896.         {
  6897.         if ($cond ne 'FALSE')
  6898.           {
  6899.         my $file = ($is_am ? "$libdir/am/" : '') . $1;
  6900.         # N-ary `.=' fails.
  6901.         my ($com, $vars, $rules)
  6902.           = file_contents_internal ($is_am, $file, %transform);
  6903.         $comment .= $com;
  6904.         $result_vars .= $vars;
  6905.         $result_rules .= $rules;
  6906.           }
  6907.         }
  6908.  
  6909.         # Handling the conditionals.
  6910.         elsif (/$IF_PATTERN/o)
  6911.       {
  6912.         $cond = cond_stack_if ($1, $2, $file);
  6913.       }
  6914.     elsif (/$ELSE_PATTERN/o)
  6915.       {
  6916.         $cond = cond_stack_else ($1, $2, $file);
  6917.       }
  6918.     elsif (/$ENDIF_PATTERN/o)
  6919.       {
  6920.         $cond = cond_stack_endif ($1, $2, $file);
  6921.       }
  6922.  
  6923.         # Handling rules.
  6924.      elsif (/$RULE_PATTERN/mso)
  6925.      {
  6926.       # Separate relationship from optional actions: the first
  6927.       # `new-line tab" not preceded by backslash (continuation
  6928.       # line).
  6929.       # I'm quite shoked!  It seems that (\\\n|[^\n]) is not the
  6930.       # same as `([^\n]|\\\n)!!!  Don't swap it, it breaks.
  6931.       my $paragraph = $_;
  6932.       /^((?:\\\n|[^\n])*)(?:\n(\t.*))?$/som;
  6933.       my ($relationship, $actions) = ($1, $2 || '');
  6934.  
  6935.       # Separate targets from dependencies: the first colon.
  6936.       $relationship =~ /^([^:]+\S+) *: *(.*)$/som;
  6937.       my ($targets, $dependencies) = ($1, $2);
  6938.       # Remove the escaped new lines.
  6939.       # I don't know why, but I have to use a tmp $flat_deps.
  6940.       my $flat_deps = &flatten ($dependencies);
  6941.       my @deps = split (' ', $flat_deps);
  6942.  
  6943.       foreach (split (' ' , $targets))
  6944.         {
  6945.           # FIXME: We are not robust to people defining several targets
  6946.           # at once, only some of them being in %dependencies.
  6947.  
  6948.           # Output only if not in FALSE.
  6949.           if (defined $dependencies{$_}
  6950.           && $cond ne 'FALSE')
  6951.         {
  6952.           &depend ($_, @deps);
  6953.           $actions{$_} .= $actions;
  6954.         }
  6955.           else
  6956.         {
  6957.           # Free-lance dependency.  Output the rule for all the
  6958.           # targets instead of one by one.
  6959.  
  6960.           # Work out all the conditions for which the target hasn't
  6961.           # been defined
  6962.           my @undefined_conds;
  6963.           if (defined $target_conditional{$targets})
  6964.             {
  6965.               my @defined_conds = keys %{$target_conditional{$targets}};
  6966.               @undefined_conds = invert_conditions(@defined_conds);
  6967.             }
  6968.           else
  6969.             {
  6970.               if (defined $targets{$targets})
  6971.                 {
  6972.               # No conditions for which target hasn't been defined
  6973.               @undefined_conds = ();
  6974.                 }
  6975.               else
  6976.             {
  6977.               # Target hasn't been defined for any conditions
  6978.               @undefined_conds = ("");
  6979.             }
  6980.             }
  6981.  
  6982.           if ($cond ne 'FALSE')
  6983.             {
  6984.               my $undefined_cond;
  6985.               for $undefined_cond (@undefined_conds)
  6986.               {
  6987.               my $condparagraph = $paragraph;
  6988.               $condparagraph =~ s/^/make_condition (@cond_stack, $undefined_cond)/gme;
  6989.               $result_rules .= "$spacing$comment$condparagraph\n"
  6990.                   if rule_define ($targets, $is_am,
  6991.                           "$cond $undefined_cond", $file);
  6992.               }
  6993.             }
  6994.           $comment = $spacing = '';
  6995.           last;
  6996.         }
  6997.         }
  6998.      }
  6999.  
  7000.      elsif (/$ASSIGNMENT_PATTERN/mso)
  7001.      {
  7002.         my ($var, $type, $val) = ($1, $2, $3);
  7003.          &am_file_error ($file, "macro `$var' with trailing backslash")
  7004.           if /\\$/;
  7005.  
  7006.         # Accumulating variables must not be output.
  7007.         $var_comment{$var} .= "$spacing"
  7008.           if (!defined $var_comment{$var}
  7009.           || substr ($var_comment{$var}, -1) ne "\n");
  7010.         $var_comment{$var} .= "$comment";
  7011.         macro_define ($var, $is_am, $type, $cond, $val, $file)
  7012.           if $cond ne 'FALSE';
  7013.         push (@var_list, $var);
  7014.  
  7015.         # If the user has set some variables we were in charge
  7016.         # of (which is detected by the first reading of
  7017.         # `header-vars.am'), we must not output them.
  7018.         $result_vars .= "$spacing$comment$_\n"
  7019.           if $type ne '+' && $var_is_am{$var} && $cond ne 'FALSE';
  7020.  
  7021.          $comment = $spacing = '';
  7022.      }
  7023.      else
  7024.      {
  7025.         # This isn't an error; it is probably some tokens which
  7026.         # configure is supposed to replace, such as `@SET-MAKE@',
  7027.         # or some part of a rule cut by an if/endif.
  7028.           if ($cond ne 'FALSE')
  7029.           {
  7030.         s/^/make_condition (@cond_stack)/gme;
  7031.         $result_rules .= "$spacing$comment$_\n";
  7032.           }
  7033.          $comment = $spacing = '';
  7034.      }
  7035.     }
  7036.  
  7037.     if (join (' ', @saved_cond_stack) ne join (' ', @cond_stack))
  7038.     {
  7039.     if (@cond_stack)
  7040.     {
  7041.         &am_error ("unterminated conditionals: @cond_stack");
  7042.     }
  7043.     else
  7044.     {
  7045.         # FIXME: better error message here.
  7046.         &am_error ("conditionals not nested in include file");
  7047.     }
  7048.     }
  7049.  
  7050.     return ($comment, $result_vars, $result_rules);
  7051. }
  7052.  
  7053.  
  7054. # $CONTENTS
  7055. # &file_contents ($BASENAME, [%TRANSFORM])
  7056. # ----------------------------------------
  7057. # Return contents of a file from $libdir/am, automatically skipping
  7058. # macros or rules which are already known.
  7059. sub file_contents ($%)
  7060. {
  7061.     my ($basename, %transform) = @_;
  7062.     my ($comments, $variables, $rules) =
  7063.       file_contents_internal (1, "$libdir/am/$basename.am", %transform);
  7064.     return "$comments$variables$rules";
  7065. }
  7066.  
  7067.  
  7068. # $REGEXP
  7069. # &transform (%PAIRS)
  7070. # -------------------
  7071. # Foreach ($TOKEN, $VAL) in %PAIRS produce a replacement expression suitable
  7072. # for file_contents which:
  7073. #   - replaces @$TOKEN@ with $VALUE,
  7074. #   - enables/disables ?$TOKEN?.
  7075. sub transform (%)
  7076. {
  7077.     my (%pairs) = @_;
  7078.     my $result = '';
  7079.  
  7080.     while (my ($token, $val) = each %pairs)
  7081.     {
  7082.         $result .= "s/\Q%$token%\E/\Q$val\E/gm;";
  7083.     if ($val)
  7084.     {
  7085.         $result .= "s/\Q?$token?\E//gm;s/^.*\Q?!$token?\E.*\\n//gm;";
  7086.         $result .= "s/\Q%?$token%\E/TRUE/gm;";
  7087.     }
  7088.     else
  7089.     {
  7090.         $result .= "s/\Q?!$token?\E//gm;s/^.*\Q?$token?\E.*\\n//gm;";
  7091.         $result .= "s/\Q%?$token%\E/FALSE/gm;";
  7092.     }
  7093.     }
  7094.  
  7095.     return $result;
  7096. }
  7097.  
  7098.  
  7099. # Find all variable prefixes that are used for install directories.  A
  7100. # prefix `zar' qualifies iff:
  7101. # * `zardir' is a variable.
  7102. # * `zar_PRIMARY' is a variable.
  7103. sub am_primary_prefixes
  7104. {
  7105.     my ($primary, $can_dist, @prefixes) = @_;
  7106.  
  7107.     my %valid = map { $_ => 0 } @prefixes;
  7108.     $valid{'EXTRA'} = 0;
  7109.     foreach my $varname (keys %var_value)
  7110.     {
  7111.         # Automake is allowed to define variables that look like they
  7112.         # are magic variables, such as INSTALL_DATA.
  7113.         next
  7114.       if $var_is_am{$varname};
  7115.  
  7116.     if ($varname =~ /^(nobase_)?(dist_|nodist_)?(.*)_$primary$/)
  7117.     {
  7118.         my ($base, $dist, $X) = ($1 || '', $2 || '', $3 || '');
  7119.         if ($dist ne '' && ! $can_dist)
  7120.         {
  7121.         # Note that a configure variable is always legitimate.
  7122.         # It is natural to name such variables after the
  7123.         # primary, so we explicitly allow it.
  7124.         if (! defined $configure_vars{$varname})
  7125.         {
  7126.             &am_line_error ($varname,
  7127.                     "invalid variable `$varname': `dist' is forbidden");
  7128.         }
  7129.         }
  7130.         elsif (! defined $valid{$X} && ! &variable_defined ("${X}dir"))
  7131.         {
  7132.         # Note that a configure variable is always legitimate.
  7133.         # It is natural to name such variables after the
  7134.         # primary, so we explicitly allow it.
  7135.         if (! defined $configure_vars{$varname})
  7136.         {
  7137.             &am_line_error ($varname,
  7138.                     "invalid variable `$varname'");
  7139.         }
  7140.         }
  7141.         else
  7142.         {
  7143.         # Ensure all extended prefixes are actually used.
  7144.         $valid{"$base$dist$X"} = 1;
  7145.         }
  7146.     }
  7147.     }
  7148.  
  7149.     return %valid;
  7150. }
  7151.  
  7152. # Handle `where_HOW' variable magic.  Does all lookups, generates
  7153. # install code, and possibly generates code to define the primary
  7154. # variable.  The first argument is the name of the .am file to munge,
  7155. # the second argument is the primary variable (eg HEADERS), and all
  7156. # subsequent arguments are possible installation locations.  Returns
  7157. # list of all values of all _HOW targets.
  7158. #
  7159. # FIXME: this should be rewritten to be cleaner.  It should be broken
  7160. # up into multiple functions.
  7161. #
  7162. # Usage is: am_install_var (OPTION..., file, HOW, where...)
  7163. sub am_install_var
  7164. {
  7165.     my (@args) = @_;
  7166.  
  7167.     my $do_require = 1;
  7168.     my $can_dist = 0;
  7169.     my $default_dist = 0;
  7170.     while (@args)
  7171.     {
  7172.     if ($args[0] eq '-noextra')
  7173.     {
  7174.         $do_require = 0;
  7175.     }
  7176.     elsif ($args[0] eq '-candist')
  7177.     {
  7178.         $can_dist = 1;
  7179.     }
  7180.     elsif ($args[0] eq '-defaultdist')
  7181.     {
  7182.         $default_dist = 1;
  7183.         $can_dist = 1;
  7184.     }
  7185.     elsif ($args[0] !~ /^-/)
  7186.     {
  7187.         last;
  7188.     }
  7189.     shift (@args);
  7190.     }
  7191.  
  7192.     my ($file, $primary, @prefixes) = @args;
  7193.  
  7194.     # Now that configure substitutions are allowed in where_HOW
  7195.     # variables, it is an error to actually define the primary.  We
  7196.     # allow `JAVA', as it is customarily used to mean the Java
  7197.     # interpreter.  This is but one of several Java hacks.  Similarly,
  7198.     # `PYTHON' is customarily used to mean the Python interpreter.
  7199.     &am_line_error ($primary, "`$primary' is an anachronism")
  7200.     if &variable_defined ($primary)
  7201.         && ($primary ne 'JAVA' && $primary ne 'PYTHON');
  7202.  
  7203.  
  7204.     # Look for misspellings.  It is an error to have a variable ending
  7205.     # in a "reserved" suffix whose prefix is unknown, eg
  7206.     # "bni_PROGRAMS".  However, unusual prefixes are allowed if a
  7207.     # variable of the same name (with "dir" appended) exists.  For
  7208.     # instance, if the variable "zardir" is defined, then
  7209.     # "zar_PROGRAMS" becomes valid.  This is to provide a little extra
  7210.     # flexibility in those cases which need it.
  7211.     my %valid = &am_primary_prefixes ($primary, $can_dist, @prefixes);
  7212.  
  7213.     # If a primary includes a configure substitution, then the EXTRA_
  7214.     # form is required.  Otherwise we can't properly do our job.
  7215.     my $require_extra;
  7216.     my $warned_about_extra = 0;
  7217.  
  7218.     my @used = ();
  7219.     my @result = ();
  7220.  
  7221.     # True if the iteration is the first one.  Used for instance to
  7222.     # output parts of the associated file only once.
  7223.     my $first = 1;
  7224.     foreach my $X (sort keys %valid)
  7225.     {
  7226.     my $one_name = $X . '_' . $primary;
  7227.     next
  7228.       unless (&variable_defined ($one_name));
  7229.  
  7230.     my $strip_subdir = 1;
  7231.     # If subdir prefix should be preserved, do so.
  7232.     if ($X =~ /^nobase_/)
  7233.       {
  7234.         $strip_subdir = 0;
  7235.         $X =~ s/^nobase_//;
  7236.       }
  7237.  
  7238.     my $nodir_name = $X;
  7239.     # If files should be distributed, do so.
  7240.     my $dist_p = 0;
  7241.     if ($can_dist)
  7242.       {
  7243.         $dist_p = (($default_dist && $one_name !~ /^nodist_/)
  7244.                || (! $default_dist && $one_name =~ /^dist_/));
  7245.         $nodir_name =~ s/^(dist|nodist)_//;
  7246.       }
  7247.  
  7248.     # Append actual contents of where_PRIMARY variable to
  7249.     # result.
  7250.     foreach my $rcurs (&variable_value_as_list ($one_name, 'all'))
  7251.       {
  7252.         # Skip configure substitutions.  Possibly bogus.
  7253.         if ($rcurs =~ /^\@.*\@$/)
  7254.           {
  7255.         if ($X eq 'EXTRA')
  7256.           {
  7257.             if (! $warned_about_extra)
  7258.               {
  7259.             $warned_about_extra = 1;
  7260.             &am_line_error ($one_name,
  7261.                     "`$one_name' contains configure substitution, but shouldn't");
  7262.               }
  7263.           }
  7264.         # Check here to make sure variables defined in
  7265.         # configure.ac do not imply that EXTRA_PRIMARY
  7266.         # must be defined.
  7267.         elsif (! defined $configure_vars{$one_name})
  7268.           {
  7269.             $require_extra = $one_name
  7270.               if $do_require;
  7271.           }
  7272.  
  7273.         next;
  7274.           }
  7275.  
  7276.         push (@result, $rcurs);
  7277.       }
  7278.  
  7279.     # A blatant hack: we rewrite each _PROGRAMS primary to include
  7280.     # EXEEXT.
  7281.     if ($primary eq 'PROGRAMS')
  7282.     {
  7283.         my @conds = &variable_conditions ($one_name);
  7284.  
  7285.         my @condvals;
  7286.         foreach my $cond (@conds)
  7287.         {
  7288.         my @one_binlist = ();
  7289.         my @condval = &variable_value_as_list ($one_name,
  7290.                                $cond);
  7291.         foreach my $rcurs (@condval)
  7292.         {
  7293.             # Skip autoconf substs.  Also skip if the user
  7294.             # already applied $(EXEEXT).
  7295.             if ($rcurs =~ /^\@.*\@$/ || $rcurs =~ /\$\(EXEEXT\)$/)
  7296.             {
  7297.             push (@one_binlist, $rcurs);
  7298.             }
  7299.             else
  7300.             {
  7301.             push (@one_binlist, $rcurs . '$(EXEEXT)');
  7302.             }
  7303.         }
  7304.  
  7305.         push (@condvals, $cond);
  7306.         push (@condvals, join (' ', @one_binlist));
  7307.         }
  7308.  
  7309.         variable_delete ($one_name);
  7310.         while (@condvals)
  7311.         {
  7312.         my $cond = shift (@condvals);
  7313.         my @val = split (' ', shift (@condvals));
  7314.         &define_pretty_variable ($one_name, $cond, @val);
  7315.         }
  7316.     }
  7317.  
  7318.     # "EXTRA" shouldn't be used when generating clean targets,
  7319.     # all, or install targets.
  7320.     if ($X eq 'EXTRA')
  7321.       {
  7322.         # We used to warn if EXTRA_FOO was defined uselessly,
  7323.         # but this was annoying.
  7324.         next;
  7325.       }
  7326.  
  7327.     if ($X eq 'check')
  7328.       {
  7329.         push (@check, '$(' . $one_name . ')');
  7330.       }
  7331.     else
  7332.       {
  7333.         push (@used, '$(' . $one_name . ')');
  7334.       }
  7335.  
  7336.     # Is this to be installed?
  7337.     my $install_p = $X ne 'noinst' && $X ne 'check';
  7338.  
  7339.     # If so, with install-exec? (or install-data?).
  7340.     my $exec_p = (defined $exec_dir_p {$X}
  7341.               ? $exec_dir_p {$X}
  7342.               : ($X =~ /exec/));
  7343.  
  7344.     # Singular form of $PRIMARY.
  7345.     (my $one_primary = $primary) =~ s/S$//;
  7346.     $output_rules .= &file_contents ($file,
  7347.                      ('FIRST' => $first,
  7348.  
  7349.                       'PRIMARY'     => $primary,
  7350.                       'ONE_PRIMARY' => $one_primary,
  7351.                       'DIR'         => $X,
  7352.                       'NDIR'        => $nodir_name,
  7353.                       'BASE'        => $strip_subdir,
  7354.  
  7355.                       'EXEC'    => $exec_p,
  7356.                       'INSTALL' => $install_p,
  7357.                       'DIST'    => $dist_p));
  7358.  
  7359.     $first = 0;
  7360.     }
  7361.  
  7362.     # The JAVA variable is used as the name of the Java interpreter.
  7363.     # The PYTHON variable is used as the name of the Python interpreter.
  7364.     if (@used && $primary ne 'JAVA' && $primary ne 'PYTHON')
  7365.     {
  7366.     # Define it.
  7367.     &define_pretty_variable ($primary, '', @used);
  7368.     $output_vars .= "\n";
  7369.     }
  7370.  
  7371.     if ($require_extra && ! &variable_defined ('EXTRA_' . $primary))
  7372.     {
  7373.     &am_line_error ($require_extra,
  7374.             "`$require_extra' contains configure substitution, but `EXTRA_$primary' not defined");
  7375.     }
  7376.  
  7377.     # Push here because PRIMARY might be configure time determined.
  7378.     push (@all, '$(' . $primary . ')')
  7379.     if @used && $primary ne 'JAVA' && $primary ne 'PYTHON';
  7380.  
  7381.     # Make the result unique.  This lets the user use conditionals in
  7382.     # a natural way, but still lets us program lazily -- we don't have
  7383.     # to worry about handling a particular object more than once.
  7384.     return uniq (sort @result);
  7385. }
  7386.  
  7387.  
  7388. ################################################################
  7389.  
  7390. # Each key in this hash is the name of a directory holding a
  7391. # Makefile.in.  These variables are local to `is_make_dir'.
  7392. my %make_dirs = ();
  7393. my $make_dirs_set = 0;
  7394.  
  7395. sub is_make_dir
  7396. {
  7397.     my ($dir) = @_;
  7398.     if (! $make_dirs_set)
  7399.     {
  7400.     foreach my $iter (@configure_input_files)
  7401.     {
  7402.         $make_dirs{dirname ($iter)} = 1;
  7403.     }
  7404.     # We also want to notice Makefile.in's.
  7405.     foreach my $iter (@other_input_files)
  7406.     {
  7407.         if ($iter =~ /Makefile\.in$/)
  7408.         {
  7409.         $make_dirs{dirname ($iter)} = 1;
  7410.         }
  7411.     }
  7412.     $make_dirs_set = 1;
  7413.     }
  7414.     return defined $make_dirs{$dir};
  7415. }
  7416.  
  7417. ################################################################
  7418.  
  7419. # This variable is local to the "require file" set of functions.
  7420. my @require_file_paths = ();
  7421.  
  7422. # If a file name appears as a key in this hash, then it has already
  7423. # been checked for.  This variable is local to the "require file"
  7424. # functions.
  7425. %require_file_found = ();
  7426.  
  7427. # See if we want to push this file onto dist_common.  This function
  7428. # encodes the rules for deciding when to do so.
  7429. sub maybe_push_required_file
  7430. {
  7431.     my ($dir, $file, $fullfile) = @_;
  7432.  
  7433.     if ($dir eq $relative_dir)
  7434.     {
  7435.     &push_dist_common ($file);
  7436.     }
  7437.     elsif ($relative_dir eq '.' && ! &is_make_dir ($dir))
  7438.     {
  7439.     # If we are doing the topmost directory, and the file is in a
  7440.     # subdir which does not have a Makefile, then we distribute it
  7441.     # here.
  7442.     &push_dist_common ($fullfile);
  7443.     }
  7444. }
  7445.  
  7446.  
  7447. # &require_file_internal ($IS_CONFIGURE, $LINE, $MYSTRICT, @FILES)
  7448. # ----------------------------------------------------------------
  7449. # Verify that the file must exist in the current directory.
  7450. # $MYSTRICT is the strictness level at which this file becomes required.
  7451. #
  7452. # Must set require_file_paths before calling this function.
  7453. # require_file_paths is set to hold a single directory (the one in
  7454. # which the first file was found) before return.
  7455. sub require_file_internal
  7456. {
  7457.     my ($is_configure, $line, $mystrict, @files) = @_;
  7458.  
  7459.     foreach my $file (@files)
  7460.     {
  7461.         my $fullfile;
  7462.     my $errdir;
  7463.     my $errfile;
  7464.     my $save_dir;
  7465.  
  7466.     my $found_it = 0;
  7467.     my $dangling_sym = 0;
  7468.     foreach my $dir (@require_file_paths)
  7469.     {
  7470.         $fullfile = $dir . "/" . $file;
  7471.         $errdir = $dir unless $errdir;
  7472.  
  7473.         # Use different name for "error filename".  Otherwise on
  7474.         # an error the bad file will be reported as eg
  7475.         # `../../install-sh' when using the default
  7476.         # config_aux_path.
  7477.         $errfile = $errdir . '/' . $file;
  7478.  
  7479.         if (-l $fullfile && ! -f $fullfile)
  7480.         {
  7481.         $dangling_sym = 1;
  7482.         last;
  7483.         }
  7484.         elsif (-f $fullfile)
  7485.         {
  7486.         $found_it = 1;
  7487.         &maybe_push_required_file ($dir, $file, $fullfile);
  7488.         $save_dir = $dir;
  7489.         last;
  7490.         }
  7491.     }
  7492.  
  7493.     # `--force-missing' only has an effect if `--add-missing' is
  7494.     # specified.
  7495.     if ($found_it && (! $add_missing || ! $force_missing))
  7496.     {
  7497.         # Prune the path list.
  7498.         @require_file_paths = $save_dir;
  7499.     }
  7500.     else
  7501.     {
  7502.         # If we've already looked for it, we're done.  You might
  7503.         # wonder why we don't do this before searching for the
  7504.         # file.  If we do that, then something like
  7505.         # AC_OUTPUT(subdir/foo foo) will fail to put foo.in into
  7506.         # DIST_COMMON.
  7507.         if (! $found_it)
  7508.         {
  7509.         next if defined $require_file_found{$file};
  7510.         $require_file_found{$file} = 1;
  7511.         }
  7512.  
  7513.         if ($strictness >= $mystrict)
  7514.         {
  7515.         if ($dangling_sym && $add_missing)
  7516.         {
  7517.             unlink ($fullfile);
  7518.         }
  7519.  
  7520.         my $trailer = '';
  7521.         my $suppress = 0;
  7522.  
  7523.         # Only install missing files according to our desired
  7524.         # strictness level.
  7525.         my $message = "required file `$errfile' not found";
  7526.         if ($add_missing)
  7527.         {
  7528.             $suppress = 1;
  7529.  
  7530.             # Maybe run libtoolize.
  7531.             my @syslist = ('libtoolize', '--automake');
  7532.             push @syslist, '--copy'
  7533.             if $copy_missing;
  7534.             if ($seen_libtool
  7535.             && grep ($_ eq $file, @libtoolize_files)
  7536.             && system (@syslist))
  7537.             {
  7538.             $message = "installing `$errfile'";
  7539.             $suppress = 0;
  7540.             $trailer = "; cannot run `libtoolize': $!";
  7541.             }
  7542.             elsif (-f ("$libdir/$file"))
  7543.             {
  7544.             # Install the missing file.  Symlink if we
  7545.             # can, copy if we must.  Note: delete the file
  7546.             # first, in case it is a dangling symlink.
  7547.             $message = "installing `$errfile'";
  7548.             # Windows Perl will hang if we try to delete a
  7549.             # file that doesn't exist.
  7550.             unlink ($errfile) if -f $errfile;
  7551.             if ($symlink_exists && ! $copy_missing)
  7552.             {
  7553.                 if (! symlink ("$libdir/$file", $errfile))
  7554.                 {
  7555.                 $suppress = 0;
  7556.                 $trailer = "; error while making link: $!";
  7557.                 }
  7558.             }
  7559.             elsif (system ('cp', "$libdir/$file", $errfile))
  7560.             {
  7561.                 $suppress = 0;
  7562.                 $trailer = "\n    error while copying";
  7563.             }
  7564.             }
  7565.  
  7566.             &maybe_push_required_file (dirname ($errfile),
  7567.                            $file, $errfile);
  7568.  
  7569.             # Prune the path list.
  7570.             @require_file_paths = &dirname ($errfile);
  7571.         }
  7572.  
  7573.         # If --force-missing was specified, and we have
  7574.         # actually found the file, then do nothing.
  7575.         next
  7576.             if $found_it && $force_missing;
  7577.  
  7578.         if ($suppress)
  7579.         {
  7580.             if ($is_configure)
  7581.             {
  7582.             # FIXME: allow actual file to be specified.
  7583.             &am_conf_line_warning ($configure_ac, $line,
  7584.                            "$message$trailer");
  7585.             }
  7586.             else
  7587.             {
  7588.             &am_line_warning ($line, "$message$trailer");
  7589.             }
  7590.         }
  7591.         else
  7592.         {
  7593.             if ($is_configure)
  7594.             {
  7595.             # FIXME: allow actual file to be specified.
  7596.             &am_conf_line_error ($configure_ac, $line,
  7597.                          "$message$trailer");
  7598.             }
  7599.             else
  7600.             {
  7601.             &am_line_error ($line, "$message$trailer");
  7602.             }
  7603.         }
  7604.         }
  7605.     }
  7606.     }
  7607. }
  7608.  
  7609. # Like require_file_with_line, but error messages refer to
  7610. # configure.ac, not the current Makefile.am.
  7611. sub require_file_with_conf_line
  7612. {
  7613.     @require_file_paths = $relative_dir;
  7614.     &require_file_internal (1, @_);
  7615. }
  7616.  
  7617. sub require_file_with_line
  7618. {
  7619.     @require_file_paths = $relative_dir;
  7620.     &require_file_internal (0, @_);
  7621. }
  7622.  
  7623. sub require_file
  7624. {
  7625.     @require_file_paths = $relative_dir;
  7626.     &require_file_internal (0, '', @_);
  7627. }
  7628.  
  7629. # Require a file that is also required by Autoconf.  Looks in
  7630. # configuration path, as specified by AC_CONFIG_AUX_DIR.
  7631. sub require_config_file
  7632. {
  7633.     @require_file_paths = @config_aux_path;
  7634.     &require_file_internal (1, '', @_);
  7635.     my $dir = $require_file_paths[0];
  7636.     @config_aux_path = @require_file_paths;
  7637.      # Avoid unsightly '/.'s.
  7638.     $config_aux_dir = '$(top_srcdir)' . ($dir eq '.' ? "" : "/$dir");
  7639. }
  7640.  
  7641. # Assumes that the line number is in Makefile.am.
  7642. sub require_conf_file_with_line
  7643. {
  7644.     @require_file_paths = @config_aux_path;
  7645.     &require_file_internal (0, @_);
  7646.     my $dir = $require_file_paths[0];
  7647.     @config_aux_path = @require_file_paths;
  7648.      # Avoid unsightly '/.'s.
  7649.     $config_aux_dir = '$(top_srcdir)' . ($dir eq '.' ? "" : "/$dir");
  7650. }
  7651.  
  7652. # Assumes that the line number is in configure.ac.
  7653. sub require_conf_file_with_conf_line
  7654. {
  7655.     @require_file_paths = @config_aux_path;
  7656.     &require_file_internal (1, @_);
  7657.     my $dir = $require_file_paths[0];
  7658.     @config_aux_path = @require_file_paths;
  7659.     # avoid unsightly '/.'s.
  7660.     $config_aux_dir = '$(top_srcdir)' . ($dir eq '.' ? "" : "/$dir");
  7661. }
  7662.  
  7663. ################################################################
  7664.  
  7665. # &require_build_directory ($DIRECTORY)
  7666. # ------------------------------------
  7667. # Emit rules to create $DIRECTORY if needed, and return
  7668. # the file that any target requiring this directory should be made
  7669. # dependent upon.
  7670. sub require_build_directory ($)
  7671. {
  7672.     my $directory = shift;
  7673.     my $dirstamp = "$directory/.dirstamp";
  7674.  
  7675.     # Don't emit the rule twice.
  7676.     if (! defined $directory_map{$directory})
  7677.     {
  7678.     $directory_map{$directory} = 1;
  7679.  
  7680.     # Directory must be removed by `make distclean'.
  7681.     $compile_clean_files{$dirstamp} = $DIST_CLEAN;
  7682.  
  7683.     $output_rules .= ("$dirstamp:\n"
  7684.               . "\t\@\$(mkinstalldirs) $directory\n"
  7685.               . "\t\@: > $dirstamp\n");
  7686.     }
  7687.  
  7688.     return $dirstamp;
  7689. }
  7690.  
  7691. # &require_build_directory_maybe ($FILE)
  7692. # --------------------------------------
  7693. # If $FILE lies in a subdirectory, emit a rule to create this
  7694. # directory and return the file that $FILE should be made
  7695. # dependent upon.  Otherwise, just return the empty string.
  7696. sub require_build_directory_maybe ($)
  7697. {
  7698.     my $file = shift;
  7699.     my $directory = dirname ($file);
  7700.  
  7701.     if ($directory ne '.')
  7702.     {
  7703.     return &require_build_directory ($directory);
  7704.     }
  7705.     else
  7706.     {
  7707.     return '';
  7708.     }
  7709. }
  7710.  
  7711. ################################################################
  7712.  
  7713. # Push a list of files onto dist_common.
  7714. sub push_dist_common
  7715. {
  7716.     &prog_error ("push_dist_common run after handle_dist")
  7717.         if $handle_dist_run;
  7718.     macro_define ('DIST_COMMON', 1, '+', '', join (' ', @_), '');
  7719. }
  7720.  
  7721.  
  7722. # Set strictness.
  7723. sub set_strictness
  7724. {
  7725.     $strictness_name = $_[0];
  7726.     if ($strictness_name eq 'gnu')
  7727.     {
  7728.     $strictness = $GNU;
  7729.     }
  7730.     elsif ($strictness_name eq 'gnits')
  7731.     {
  7732.     $strictness = $GNITS;
  7733.     }
  7734.     elsif ($strictness_name eq 'foreign')
  7735.     {
  7736.     $strictness = $FOREIGN;
  7737.     }
  7738.     else
  7739.     {
  7740.     die "$me: level `$strictness_name' not recognized\n";
  7741.     }
  7742. }
  7743.  
  7744.  
  7745. ################################################################
  7746.  
  7747. # Ensure a file exists.
  7748. sub create
  7749. {
  7750.     my ($file) = @_;
  7751.  
  7752.     my $touch = new IO::File (">> $file");
  7753.     $touch->close;
  7754. }
  7755.  
  7756. # Glob something.  Do this to avoid indentation screwups everywhere we
  7757. # want to glob.  Gross!
  7758. sub my_glob
  7759. {
  7760.     my ($pat) = @_;
  7761.     return <${pat}>;
  7762. }
  7763.  
  7764. # Remove one level of brackets and strip leading spaces,
  7765. # as does m4 to function arguments.
  7766. sub unquote_m4_arg
  7767. {
  7768.     $_ = shift;
  7769.     s/^\s*//;
  7770.  
  7771.     my @letters = split //;
  7772.     my @result = ();
  7773.     my $depth = 0;
  7774.  
  7775.     foreach (@letters)
  7776.     {
  7777.     if ($_ eq '[')
  7778.     {
  7779.         ++$depth;
  7780.         next if $depth == 1;
  7781.     }
  7782.     elsif ($_ eq ']')
  7783.     {
  7784.         --$depth;
  7785.         next if $depth == 0;
  7786.         # don't count orphan right brackets
  7787.         $depth = 0 if $depth < 0;
  7788.     }
  7789.     push @result, $_;
  7790.     }
  7791.     return join '', @result;
  7792. }
  7793.  
  7794. ################################################################
  7795.  
  7796. # am_print_error ($LEADER, @ARGS)
  7797. # -------------------------------
  7798. # Do the work of printing the error message.  Join @ARGS with spaces,
  7799. # then split at newlines and add $LEADER to each line.  Uses `warn' to
  7800. # print message.
  7801. sub am_print_error
  7802. {
  7803.     my ($leader, @args) = @_;
  7804.     my $text = join (' ', @args);
  7805.     @args = split ("\n", $text);
  7806.     $text = $leader . join ("\n" . $leader, @args) . "\n";
  7807.     warn $text;
  7808. }
  7809.  
  7810. # Print an error message and set exit status.
  7811. sub am_error
  7812. {
  7813.     am_print_error ("$me: ${am_file}.am: ", @_);
  7814.     $exit_status = 1;
  7815. }
  7816.  
  7817. # am_file_error ($FILE, @ARGS)
  7818. # ----------------------------
  7819. sub am_file_error
  7820. {
  7821.     my ($file, @args) = @_;
  7822.  
  7823.     am_print_error ("$file: ", @args);
  7824.     $exit_status = 1;
  7825. }
  7826.  
  7827. sub am_line_error
  7828. {
  7829.     my ($symbol, @args) = @_;
  7830.  
  7831.     if ($symbol && "$symbol" ne '-1')
  7832.     {
  7833.     my $file = "${am_file}.am";
  7834.  
  7835.     if ($symbol =~ /^\d+$/)
  7836.     {
  7837.         # SYMBOL is a line number, so just add the colon.
  7838.         $file .= ':' . $symbol;
  7839.     }
  7840.     elsif (defined $var_line{$symbol})
  7841.     {
  7842.         # SYMBOL is a variable defined in Makefile.am, so add the
  7843.         # line number we saved from there.
  7844.         $file .= ':' . $var_line{$symbol};
  7845.     }
  7846.     elsif (defined $configure_vars{$symbol})
  7847.     {
  7848.         # SYMBOL is a variable defined in configure.ac, so add the
  7849.         # appropriate line number.
  7850.         $file = $configure_vars{$symbol};
  7851.     }
  7852.     else
  7853.     {
  7854.         # Couldn't find the line number.
  7855.     }
  7856.  
  7857.     am_print_error ("$file: ", @args);
  7858.     $exit_status = 1;
  7859.     }
  7860.     else
  7861.     {
  7862.     &am_error (@args);
  7863.     }
  7864. }
  7865.  
  7866. # Like am_error, but while scanning configure.ac.
  7867. sub am_conf_error
  7868. {
  7869.     # FIXME: can run in subdirs.
  7870.     am_print_error ("$me: $configure_ac: ", @_);
  7871.     $exit_status = 1;
  7872. }
  7873.  
  7874. # Error message with line number referring to configure.ac.
  7875. sub am_conf_line_error
  7876. {
  7877.     my ($file, $line, @args) = @_;
  7878.  
  7879.     if ($line)
  7880.     {
  7881.     am_print_error ("$file: $line: ", @args);
  7882.     $exit_status = 1;
  7883.     }
  7884.     else
  7885.     {
  7886.     &am_conf_error (@args);
  7887.     }
  7888. }
  7889.  
  7890. # Warning message with line number referring to configure.ac.
  7891. # Does not affect exit_status
  7892. sub am_conf_line_warning
  7893. {
  7894.     my $saved_exit_status = $exit_status;
  7895.     my $sig = $SIG{'__WARN__'};
  7896.     $SIG{'__WARN__'} = 'DEFAULT';
  7897.     am_conf_line_error (@_);
  7898.     $exit_status = $saved_exit_status;
  7899.     $SIG{'__WARN__'} = $sig;
  7900. }
  7901.  
  7902. # Like am_line_error, but doesn't affect exit status.
  7903. sub am_line_warning
  7904. {
  7905.     my $saved_exit_status = $exit_status;
  7906.     my $sig = $SIG{'__WARN__'};
  7907.     $SIG{'__WARN__'} = 'DEFAULT';
  7908.     am_line_error (@_);
  7909.     $exit_status = $saved_exit_status;
  7910.     $SIG{'__WARN__'} = $sig;
  7911. }
  7912.  
  7913. # Tell user where our aclocal.m4 is, but only once.
  7914. sub keyed_aclocal_warning
  7915. {
  7916.     my ($key) = @_;
  7917.     warn "$me: macro `$key' can be generated by `aclocal'\n";
  7918. }
  7919.  
  7920. # Print usage information.
  7921. sub usage
  7922. {
  7923.     print <<EOF;
  7924. Usage: $0 [OPTION] ... [Makefile]...
  7925.  
  7926. Generate Makefile.in for configure from Makefile.am.
  7927.  
  7928. Operation modes:
  7929.       --help             print this help, then exit
  7930.       --version          print version number, then exit
  7931.   -v, --verbose          verbosely list files processed
  7932.   -o, --output-dir=DIR   put generated Makefile.in's into DIR
  7933.       --no-force         only update Makefile.in's that are out of date
  7934.  
  7935. Dependency tracking:
  7936.   -i, --ignore-deps      disable dependency tracking code
  7937.       --include-deps     enable dependency tracking code
  7938.  
  7939. Flavors:
  7940.       --cygnus           assume program is part of Cygnus-style tree
  7941.       --foreign          set strictness to foreign
  7942.       --gnits            set strictness to gnits
  7943.       --gnu              set strictness to gnu
  7944.  
  7945. Library files:
  7946.   -a, --add-missing      add missing standard files to package
  7947.       --libdir=DIR       directory storing library files
  7948.   -c, --copy             with -a, copy missing files (default is symlink)
  7949.   -f, --force-missing    force update of standard files
  7950. EOF
  7951.  
  7952.     my ($last, @lcomm);
  7953.     $last = '';
  7954.     foreach my $iter (sort ((@common_files, @common_sometimes)))
  7955.     {
  7956.     push (@lcomm, $iter) unless $iter eq $last;
  7957.     $last = $iter;
  7958.     }
  7959.  
  7960.     my @four;
  7961.     print "\nFiles which are automatically distributed, if found:\n";
  7962.     format USAGE_FORMAT =
  7963.   @<<<<<<<<<<<<<<<<   @<<<<<<<<<<<<<<<<   @<<<<<<<<<<<<<<<<   @<<<<<<<<<<<<<<<<
  7964.   $four[0],           $four[1],           $four[2],           $four[3]
  7965. .
  7966.     $~ = "USAGE_FORMAT";
  7967.  
  7968.     my $cols = 4;
  7969.     my $rows = int(@lcomm / $cols);
  7970.     my $rest = @lcomm % $cols;
  7971.  
  7972.     if ($rest)
  7973.     {
  7974.     $rows++;
  7975.     }
  7976.     else
  7977.     {
  7978.     $rest = $cols;
  7979.     }
  7980.  
  7981.     for (my $y = 0; $y < $rows; $y++)
  7982.     {
  7983.     @four = ("", "", "", "");
  7984.     for (my $x = 0; $x < $cols; $x++)
  7985.     {
  7986.         last if $y + 1 == $rows && $x == $rest;
  7987.  
  7988.         my $idx = (($x > $rest)
  7989.                ?  ($rows * $rest + ($rows - 1) * ($x - $rest))
  7990.                : ($rows * $x));
  7991.  
  7992.         $idx += $y;
  7993.         $four[$x] = $lcomm[$idx];
  7994.     }
  7995.     write;
  7996.     }
  7997.  
  7998.     print "\nReport bugs to <bug-automake\@gnu.org>.\n";
  7999.  
  8000.     exit 0;
  8001. }
  8002.  
  8003. # &version ()
  8004. # -----------
  8005. # Print version information
  8006. sub version ()
  8007. {
  8008.   print <<EOF;
  8009. automake (GNU $PACKAGE) $VERSION
  8010. Written by Tom Tromey <tromey\@cygnus.com>.
  8011.  
  8012. Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
  8013. Free Software Foundation, Inc.
  8014. This is free software; see the source for copying conditions.  There is NO
  8015. warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  8016. EOF
  8017.   exit 0;
  8018. }
  8019.